Akustische Funktion für Ergebnis

Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal WAVDatei As String, ByVal WiedergabeModus As Long) As Long 

Function SpielWAV(Vergleich As Boolean, DieseWAV As String, JeneWAV As String) As String
'Für: Excel 2000
'Funktion: Neue Tabellenfunktion. Wenn der übergebene Vergleich
' wahr ist, wird die in DieseWAV benannte WAV-Datei abgespielt.
' Ist der Vergleich falsch, bringt die Funktion die in
' JeneWAV angegebene WAV-Datei zu Gehör.
'© 2000, Ralf Nebelo
If Vergleich = True And DieseWAV > "" Then
If Dir(DieseWAV) > "" Then
sndPlaySound DieseWAV, 1
Else
SpielWAV = "(DieseWAV nicht gefunden)"
End If
ElseIf Vergleich = False And JeneWAV > "" Then
If Dir(JeneWAV) > "" Then
sndPlaySound JeneWAV, 1
Else
SpielWAV = "(JeneWAV nicht gefunden)"
End If
End If
End 

Function
Wo muß ich denn den VBA Code einfügen in der "Tabelle" , im "Modul" oder in "Diese Arbeitsmappe" ?
Ich erhalte immer den Schriftzug " Private Declare 

Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal WAVDatei As String, ByVal WiedergabeModus As Long) As Long 

Function SpielWAV(Vergleich As Boolean, DieseWAV As String, JeneWAV As String) As String "
rot markiert und nichts funktioniert.
Vieleicht kennt jemand auch ein anderes VBA das bei einem korrektem Ergeniss einer Zelle eine Wave abspielt.
Danke für eure Hilfe Gruß
Steffen