I ve also mentioned delay at the time of sending sms so that it can wait for a few sec. and then send a new sms. I ve reduce the delay secs.. bcoz i wanted to speed up my message sending such as 7 or 8 smss in 1 minute.


Private Sub Wait_For_Response(Optional Fnl As Boolean, Optional VEW As Boolean)
Dim Start


Start = Timer
Do While Timer < Start + DelayPd + IIf(Fnl, 0.5, 0)
DoEvents
' Debug.Print strbuffer & " from Wait for response"
If Not Fnl Then
If InStr(1, strbuffer, "OK") > 0 Or InStr(1, strbuffer, "ERROR") > 0 Or IIf(VEW, InStr(1, strbuffer, ">"), False) Then
Exit Sub
End If
End If
Loop
End Sub



The fnl variable is used at the end of sending sms such as this :

.
.
.
.
.
.

Call Send(strSMS & Chr(26))

Dim buf As String

If Val(cmdPause.Tag) = 1 Then Call xDeconstruct_: NotSent = True: Exit Sub

If Verify(10) Then Call xDeconstruct_: NotSent = True: Exit Sub



Call Wait_For_Response(True)

Call xDeconstruct_

This is a part of my sms coding. please refer this and give me the solution coz i m fed up with this.

Pls Help

Thanks
Reliable