'Funktion und Variablen zum Pausen zu erzeugen
    ''''''''''''''''''''''''''''''''''''''''''''''
        Private Declare Sub Sleep Lib "kernel32" (ByVal Sleep_milliseconds As _
          Long)
 
    'Signal 3 mal ausgeben
    ''''''''''''''''''''''
    Private Sub Command1_Click()
            Beep
        Sleep 1000
            Beep
            DoEvents
        Sleep 1000
            Beep
            DoEvents
    End Sub