Windows API VisualBasic Script

Private Sub ge()
     Beep
End Sub