'Das sind die von mir benutzen Typen:
Public Type AudioFileT
    sTitle As String
    sFile As String
    sAlias As String
    iLenght As Long
    iPlus As Long
    bVisible As Boolean
    iAutoPlace As Long
End Type
 
Public Type SatzT
    sAlias As String
    iTime As Integer
End Type
 
Public Type DienstT
    sKey As String
    sText As String
    Satz() As SatzT
    iCount As Integer
End Type
 
'API Funktion
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
 
 
'Hiermit werden die Sounds abgespielt.
Function Wiedergabe(DienstDev As DienstT) As Boolean
Dim iT As Integer
Dim iZ As Long
With DienstDev
For n = 0 To .iCount
    iT = GetAudioIndex(.Satz(n).sAlias)
    iZ = .Satz(n).iTime
    With AudioFiles(iT)
        iZ = iZ + .iLenght
        StopAudioFile .sAlias 'Hier irgendwo tritt der Fehler auf
        PlayAudioFile .sAlias
        Delay iZ
    End With
Next
End With
End Function
 
Public Sub PlayAudioFile(sID As String)
mciSendString "play " & sID, 0, 0, 0
End Sub
 
Public Sub StopAudioFile(sID As String)
mciSendString "stop " & sID, 0, 0, 0
ResetAudioFile sID
End Sub