the code here is to send sms .my question is when i send the sms i need message in msgbox that the message is send
the code
For i = 0 To lstlist.ListCount - 1
MSComm1.Output = ("at+cmgf=1")
SleepEx 1000, False
MSComm1.Output = Chr(13)
SleepEx 1000, False
MSComm1.Output = ("at+cmgs=")
SleepEx 1000, False
MSComm1.Output = Chr(34)
SleepEx 1000, False
MSComm1.Output = lstlist.List(i)
SleepEx 1000, False
MSComm1.Output = Chr(34)
SleepEx 1000, False
MSComm1.Output = Chr(13)
SleepEx 1000, False
MSComm1.Output = txtmsg.Text
SleepEx 1000, False
MSComm1.Output = Chr(26)
Next i


thank's