émettre et lire msg

J'ai un code vb pour émettre un msg via un module gsm
Private Sub Command1_Click()
MSComm1.CommPort = 3 ' Com4 Port
MSComm1.Settings = "115200,n,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = "AT" & Chr$(13) & Chr(10)
MSComm1.Output = "AT+CMGF=1" & Chr$(13) & Chr(10)
MSComm1.Output = "AT+CMGS=" & Chr$(34) & "+50683999999" & Chr$(34) & Chr(13) & Chr(10)
MSComm1.Output = "My testing message" & Chr(26)

MSComm1.PortOpen = False

End Sub

ce que j'arrive pas à le résoudre comment je fais pour lire la réponse de MSComm1 de savoir si le message a été envoyé avec succès?
Merci d'avance :)