lydfil på Msgbox

Dette eks. er en Userform i Word. I Userformen er der en tekstbox og en luk-knap.
Hvis tekstboksen forlades tom -afspilles en lyd, hvis udfyldt en anden.
Desuden er der i userform indsat en "additional control": WindowsMediaPlayer

VBA-koden ser således ud:

Dim xsti
Const lyd0 = ""
Const lyd1 = "eksplos.wav"
Const lyd2 = "klappe1.wav"
Private Sub commandbutton1_Click()
    Unload UserForm1
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Value = "" Then
        lyd xsti + lyd1, True
    Else
        lyd xsti + lyd2, True
    End If
End Sub
Private Sub UserForm_activate()
    xsti = ActiveDocument.Path
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
   
    lyd lyd0, False
End Sub
Private Sub lyd(lydfil, onOff)
    With WindowsMediaPlayer1
        .Enabled = onOff
        .URL = lydfil
    End With
End Sub

Hvis ønskeligt - så send en mail til: pb@supertekst-it.dk - så sender jeg det hele.