Private Sub OpenMP3(ByVal sFile As String)
  Dim sBuffer As String
  Dim lResult As Long
  Dim sReturn As String
  sBuffer = Space$(255)
  lResult = GetShortPathName(sFile, sBuffer, _
    Len(sBuffer))
  If lResult <> 0 Then
    sFile = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
  End If
  mciSendString "open " & sFile & _
    " type MPEGVideo alias myMP3", 0, 0, 0
End Sub
Private Sub CloseMP3()
  mciSendString "close myMP3", 0, 0, 0
End Sub
Private Function SendCommand(ByVal sCmd As String) As Long
  Dim lResult As Long
  Dim sReturn As String
 
  sReturn = Space$(256)
  lResult = mciSendString(sCmd, sReturn, Len(sReturn), 0&)
 
  SendCommand = Val(sReturn)
End Function

Dim sFile As String
sFile = App.Path & "\alarmanlage.mp3"
OpenMP3 sFile
SendCommand "play myMP3 from 0"