digita così:

'DUE PULSANTI
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Clicca su SI per sentire una musichina breve" & _
vbCrLf & "Clicca su NO per sentire una lunga musichina" ' Definisce il messaggio.
Style = vbYesNo + vbDefaultButton2 ' Definisce i pulsanti.
Title = " Messaggio" ' Definisce il titolo.

Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' L'utente sceglie il pulsante Sì.

MyString = "Sì" ' Esegue un'azione.
For i = 1 To 5
Beep
Next i
Else
For i = 1 To 1000
Beep
Next i
End If