Purtroppo non mi esce...nessun suono.

Ho inserito un CommandButton ed ho inserito nello stesso
il codice seguente. Non mi da neppure un errore per capire se ho sbagliato o no e cosa ho sbagliato.
code:
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub command1_click()
for i = 1 to 4
beep 1000,250
beep 1350, 250
next i
End Sub