Que tal um "som" ? Ouvindo arquivos WAV...

Se você precisar executar arquivos do tipo Wav em seus aplicativos , siga os passos abaixo:

1-) Inicie um novo projeto no VB e na seção General Declarations do formulário declare a seguinte API:

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

2-) Agora coloque o seguinte código em um evento apropriado do seu projeto. Aqui estou colocando no evento click de um botão de comando - command1. Este código irá executar o arquivo .Wav. Voce deverá informar o nome do arquivo que quer ouvir na caixa de texto text1.text informando o seu  nome e localização.

Private Sub Command1_Click()
  Dim i As Long, RS As String, cb As Long, W$
  RS = Space$(128)
  W$ = Text1.Text
  i = mciSendString("open waveaudio!" & W$ & " alias sound", RS, 128, cb)
  If i Then MsgBox "Arquivo nao localizado!."
  i = mciSendString("play sound", RS, 128, cb)
End Sub

3-) Para parar o processo de execução inclua o código a seguir em um evento apropriado do seu projeto. Aqui estou usando o evento click de um segundo botão de comando - command2. 

Private Sub Command2_Click()
Dim i As Long, RS As String, cb As Long
RS = Space$(128)
i = mciSendString("stop sound", RS, 128, cb)
i = mciSendString("close sound", RS, 128, cb)
End Sub

O jeitão do formulário é o seguinte:

Só para relaxar...