Синхронное воспроизведение через mciSendString - VB

Формулировка задачи:

Для Wav файлов есть sndPlaySound и константы. Иногда нужно выстраивать озвучиваемые файлы в очередь, а в моем случае в этой очереди еще и озвучка текста. Для Wav очень удобно при этом пользоваться SND_SYNC. Но понадобилось мне воспроизводить еще MP3. Выбрал вариант с mciSendString. Но воспроизводит асинхронно, возвращая управление сразу, не дожидаясь окончания звучания. Может кто знает, как придержать дальнейшее выполнение кода, пока файл полностью не проиграет?

Решение задачи: «Синхронное воспроизведение через mciSendString»

textual
                            Листинг программы 
                        
                            play Music wait