Skaņas faili MIDI formātā bieži ir gari, tāpēc var būt nepieciešams pārtraukt atskaņošanu
skaņu (piemēram, kad makro ir pabeigts). Šeit ir piemērs:
Privātas deklarēšanas funkcija mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) Kā gara apakšatspēle "play" & MidiFileName 'sākt spēlēt Else mciExecute "stop" & MidiFileName' pārtrauc spēlēt Beigt Ja Beigt Sub ApakšTestaPlayMidiFile () PlayMidiFile "c: \ mapes vārds \ skaņas faila nosaukums.mid", True MsgBox "Kad sākas MIDI faila atskaņošana, noklikšķiniet uz Labi … "MsgBox" Noklikšķiniet uz Labi, lai pārtrauktu MIDI faila atskaņošanu … "PlayMidiFile" c: \ mapes vārds \ skaņas faila nosaukums.mid ", False End Sub