impuls von Excel an einen Schalter

Dim Freigabe As Boolean
Public ET As Variant
Private Declare Function Beep Lib "kernel32" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) _
As Long
Private Sub TestSoundC()
Beep 792, 9000
End Sub