Zvukové súbory vo formáte MIDI sú často dlhé, preto môže byť potrebné prehrávanie zastaviť
zvuk (napr. keď je makro hotové). Tu je príklad:
Súkromná deklaračná funkcia mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand ako reťazec) ako dlhý čiastkový súbor PlayMidiFile (názov súboru MidiFile ako reťazec, hrať ako boolovský režim) ak príkaz Dir (názov súboru MidiFile) = "" potom ukončite súbor Sub 'žiadny súbor na prehratie, ak prehráte, potom mciExecute "play" & MidiFileName 'začne hrať Ostatné mciExecute' stop '& MidiFileName' zastaví prehrávanie End If End Sub Sub TestPlayMidiFile () PlayMidiFile "c: \ foldername \ soundfilename.mid", True MsgBox "Keď sa súbor MIDI začne prehrávať, kliknite na tlačidlo OK … „MsgBox“ Kliknutím na tlačidlo OK zastavíte prehrávanie súboru MIDI … „PlayMidiFile“ c: \ názov priečinka \ názov zvukového súboru.mid „, False End Sub