Public Declare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" 
(ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal _
  cchReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" 
(ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer _
As Long) As Long
 
Public Sub Sound(ByVal File As String, ByVal Alias As String)
    Dim Buffer As String
    Dim Result As Long
 
    If Sounds = True Then
        Buffer = Space$(255)
        If DebugMode = True Then
            File = "..\Sounds\" & File
        Else
            File = App.Path & "\Data\Sounds\" & File
        End If
 
        Result = GetShortPathName(File, Buffer, Len(Buffer))
 
        If Result <> 0 Then
            File = Left$(Buffer, InStr(Buffer, vbNullChar) - 1)
            If DebugMode = True Then
                If MCISendString("open " & File & " type WaveAudio alias " & _
                  Alias, 0, 0, 0) = 0 Then
                    MCISendString "play " & Alias & " from 0", 0, 0, 0
                End If
            Else
                If MCISendString("open " & File & " type WaveAudio alias " & _
                  Alias, 0, 0, 0) = 0 Then
                    MCISendString "play " & Alias & " from 0", 0, 0, 0
                End If
            End If
        End If
        SoundAliasID = SoundAliasID + 1
        frmMain.Caption = SoundAliasID
    End If
End Sub

Call Sound("damage2.wav", "Damage2" & SoundAliasID)