'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)