ayuda urgente vb6

[ime]

Hola amigos del foro necesito ayuda porfavor


como puedo hacer que me informe que se aya enviado el mensaje y si no tambien me avise este es el codigo que utilizo para enviar el mensaje, urgente!!!!!!.

Código [Seleccionar] Expandir


MSComm1.Output = "AT+CMGF=1" & vbCrLf
     Sleep (300)
    MSComm1.Output = "AT+CMGS=" & Chr(34) & "9999411548 "& Chr(34) & vbCr
    MSComm1.Output = "Hola enviar sms" & Chr(26) & vbCr