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

'Envia los comandos al dispositivo MCI:
Private Sub SendCommand(Command As String, Optional ReturnString As String, Optional ReturnLength As Long)
    If ReturnString = vbNullString Then ReturnString = 0
    Call mciSendString(Command, ReturnString, ReturnLength, 0)

End Sub

'Inicia la grabacion de audio:
Public Sub RECORD_Start()
    Call SendCommand("open new type waveaudio alias WavFile")
    Call SendCommand("record WavFile insert")

End Sub

'Termina la grabacion de audio:
Public Sub RECORD_Finish()
    Call SendCommand("stop WavFile wait")
   
End Sub

'Guarda la grabacion en un archivo de sonido WAV:
Public Sub RECORD_Save(Filename As String)
    Call SendCommand("save WavFile " & Filename)
    Call SendCommand("close WavFile")

End Sub