Воспроизвести аудиофайл - VB

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

Не могу понять какой код надо использовать... Система такая

Dim GoHa As String
    GoHa = InputBox("...", "...", "")
    If GoHa = "..." Then
        Text2.Text = "..."
Else

( и тут я не знаю какой код написать ,что в противном случае запустить медиа файл (MP3)) Надо так что бы не через плеер он его запустил а в самой программе... Помогите плз)

Решение задачи: «Воспроизвести аудиофайл»

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

                            Private Sub Form_Load()
Set oVoice = CreateObject("SAPI.SpVoice")
Set oSpFileStream = CreateObject("SAPI.SpFileStream")
oSpFileStream.Open "c:\windows\media\ringout.wav"
oVoice.SpeakStream (oSpFileStream)
oSpFileStream.Close
End Sub
                        