'Declaraciones
Dim Ruta As String

Private Sub Command1_Click()
cd1.Filter = "Ejecutables  (*.exe)|*.exe|Algo mas*.*"
cd1.ShowOpen
Ruta = cd1.FileName
Text1.Text = Ruta
End Sub

'Declaraciones
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
Dim Result&
Dim ReturnString As String * 1024

'En un procedimiento

'Abrimos
Result& = mciSendString("open new type waveaudio alias mysound", ReturnString, 1024, 0)
'Ponemos el formato del sonido
Result& = mciSendString("set mysound time format ms bitspersample 8 samplespersec 11025", ReturnString, 1024, 0)
'Grabamos sonido del microfono (tiempo en milisegundos)
Result& = mciSendString("record mysound to 10000", ReturnString, 1024, 0)

'Teneis k poner un code k haga que el programa espere a k pasen los milisegundos indicados antes

'Guardamos el sonido en un archivo .wav
Result& = mciSendString("save mysound C:\las.wav", ReturnString, Len(ReturnString), 0)
'Cerramos
Result& = mciSendString("close mysound", ReturnString, 1024, 0)