Visual Basic - Capturar y reproducir voz

Buen dia maestros del visual

Alguno de ustedes sabe como capturar la informacion de un microfono y como reproducir esta informacion en los parlantes sin usar archivos? alguna idea es valida, y si es con archivos tambien es valida..

Saludos

///////////////////////// - PARA GRABAR - ///////////////////////////////
'Cerrar todas las operaciones de MCI de anteriores programas de VB
i = mciSendString("close all", 0&, 0, 0)

'Abrir un nuevo WAV con el Comando MCI...
i = mciSendString("open new type waveaudio alias capture", 0&, 0, 0)

"Las muestras por segundo que son compatibles:
'11025 Baja calidad
'22050 De calidad media
'44100 De alta calidad (calidad de CD de música)

i = mciSendString("set capture channels 2", 0&, 0, 0) 'para estéreo de 2 canales

'Comienzo
i = mciSendString("seek capture to start", 0&, 0, 0) 'Siempre al comienzo
i = mciSendString("set capture samplespersec 44100", 0&, 0, 0) 'Calidad de CD
i = mciSendString("set capture bitspersample 16", 0&, 0, 0) '16 bits para un sonido mejor

i = mciSendString("record capture", 0&, 0, 0) 'Iniciar la grabación

/////////////////// - PARA PARAR DE GRABAR - ///////////////////
i = mciSendString("stop capture", 0&, 0, 0)

/////////////////////// - PARA REPRODUCIR - /////////////////////////
i = mciSendString("play capture from 0", 0&, 0, 0)

/////////////////////////// - PARA GUARDAR - ////////////////////////////
i = mciSendString("save capture " & """" & App.Path & "audio.wav" & """", 0&, 0, 0)


ESPERO QUE TE SIRVA
SUERTE!

CHICHO

hola, disculpa, sabes como se captura la voz que hay en un modem?