Zvučne datoteke u MIDI-formatu često su dugačke, pa bi moglo biti potrebno prestati reproducirati
zvuk (npr. kad makro završi). Evo primjera:
Privatna funkcija deklariranja mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) Kao dugačak Sub PlayMidiFile (MidiFileName As String, Play As Boolean) If Dir (MidiFileName) = "" Zatim izađite iz Sub 'nema datoteke za reprodukciju Ako se reproducira Zatim mciExecute "play" & MidiFileName 'početak reprodukcije Inače mciExecute "stop" & MidiFileName "prestanak reprodukcije Zaustavi ako završi Sub Sub TestPlayMidiFile () PlayMidiFile" c: \ foldername \ soundfilename.mid ", True MsgBox" Pritisnite U redu kada se MIDI datoteka počne reproducirati … "MsgBox" Pritisnite U redu da biste prestali reproducirati MIDI datoteku … "PlayMidiFile" c: \ ime mape \ ime zvučne datoteke.mid ", False End Sub