marcar con MSCOMM1 telefono, antender y luego sonar wav?

[LeandroA]

Hola alguien sabe como puedo hacer para marcar por teléfono con MSCOMM1 y cuando la otra persona atiende hacer sonar un wav
y obviamente la otra persona lo escuche el wav

tengo este código que lo que hace es marcar pero y cuando conecta aparece un msgbox diciendo que "levante el tuvo", pero se puede hacer que en ves de esto, cuando la otra persona atiende le suene el wav?



Dim cancelar As Boolean

'Boton para hacer la llamada...

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "Introduzca un número a marcar!", vbCritical, "Marcar"

Else

cancelar = False

Command1.Caption = "Marcando..."

Dial (Text1.Text)

End If

End Sub

Private Sub Dial(Number$)

Dim DialString$, FromModem$, dummy



DialString$ = "ATDT" + Number$ + ";" + vbCr



On Error Resume Next

MSComm1.PortOpen = True

If Err Then

MsgBox "Error de Puerto!"

Exit Sub

End If



MSComm1.InBufferCount = 0



MSComm1.Output = DialString$



Do

dummy = DoEvents()

If MSComm1.InBufferCount Then

FromModem$ = FromModem$ + MSComm1.Input

If InStr(FromModem$, "OK") Then

Beep

MsgBox "Por favor alce el auricular y presione Enter o haga click."

Command1.Caption = "Marcar"

Exit Do

End If

End If



If cancelar Then

cancelar = False

Exit Do

End If

Loop



MSComm1.Output = "ATH" + vbCr

MSComm1.PortOpen = False

End Sub