Option Explicit
Private Declare Function MessageBeep Lib "user32" (ByVal wType As BeepType) As _
  Long
'Private Declare Function MessageBeep Lib "user32.dll" (ByVal wType As Long) As 
' Long
Public Enum BeepType
  MB_ICONASTERISK = &H40
  MB_ICONEXCLAMATION = &H30
  MB_ICONQUESTION = &H20
  MB_ICONERROR = &H10
  MB_OK = &H0
  MB_SPEEKER = -1
End Enum

Private Sub Command4_Click()
 
  Dim Retval As Long
 
  Retval = MessageBeep(MB_SPEEKER)
 
  If Retval = 0 Then
    Debug.Print "MessageBeep ist gescheitert"
  End If
 
End Sub