SMS Sending Failed and Sent[help]

See more:

VB6

hi guys how am i going to make my sms application with the status of message sending Failed or message Sent successfully? like the messaging on our phone. i'm using AT Commands and GSM modem
here is my sending code:

MSComm1.Output = "AT" & vbCrLf
List1.AddItem MSComm1.Input
Sleep 500
MSComm1.Output = "AT+CMGF=1" & vbCrLf
List1.AddItem MSComm1.Input
Sleep 1000
MSComm1.Output = "AT+CMGS=" & Chr(34) & tmpF_MobileNum & Chr(34) & vbCrLf
MSComm1.Output = TMPMESEJ & Chr(26)
List1.AddItem MSComm1.Input
Sleep 1500
MSComm1.Output = "AT+CMGS=" & Chr(34) & tmpM_MobileNum & Chr(34) & vbCrLf
MSComm1.Output = TMPMESEJ & Chr(26)
List1.AddItem MSComm1.Input
Sleep 2000

Q1: How am i going to do that my program tell me or show me that the message is failed or sent?
Thanks in Advance.