'Функция для проигрывания файлов в формате *.mp3
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'чтобы воспроизвести файл
Call mciExecute("play имя вашего файла")
'чтобы закрыть файл
Call mciExecute("close имя вашего файла")
как вместо "имя вашего файла" можно вставить переменную(string)