Lydfiler i MIDI-format er ofte lange, så det kan være nødvendig å slutte å spille
lyden (f.eks. når makroen er ferdig). Her er et eksempel:
Privat erklære funksjon mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) As Long Sub PlayMidiFile (MidiFileName As String, Play As Boolean) If Dir (MidiFileName) = "" Then Exit Sub 'no file to play If Play Then mciExecute "play" og MidiFileName 'begynn å spille Else mciExecute "stop" & MidiFileName' stop playing End If End Sub Sub TestPlayMidiFile () PlayMidiFile "c: \ foldername \ soundfilename.mid", True MsgBox "Klikk OK når MIDI -filen begynner å spille … "MsgBox" Klikk OK for å slutte å spille MIDI -filen … "PlayMidiFile" c: \ mappenavn \ soundfilename.mid ", False End Sub