Звуковите файлове в MIDI формат често са дълги, така че може да се наложи да спрете възпроизвеждането
звукът (например когато макросът е завършен). Ето един пример:
Частна функция за деклариране mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) като дълъг подпис "play" & MidiFileName 'започнете да играете Иначе mciExecute "stop" & MidiFileName "спрете да играете End If End Sub Sub TestPlayMidiFile () PlayMidiFile" c: \ foldername \ soundfilename.mid ", True MsgBox" Щракнете върху OK, когато MIDI файлът започне да се възпроизвежда … "MsgBox" Щракнете върху OK, за да спрете възпроизвеждането на MIDI файла … "PlayMidiFile" c: \ име на папка \ име на звуковия файл.mid ", подправен фалшив край