AT command - کمک برای فیکس کردن یک تابع ارسال اس ام اس

[ak1_2004]

سلام
من از تابع زیر برای ارسال اس ام اس استفاده می کنم ! اما وقتی اس ام اس گروهی ارسال می کنم برخی مواقع با خطا رو به رو می شم !
کمک کنید ممنون می شم !


Public Sub SendSMS(ByVal PDUMessage As String, ByVal PDULenth As String, ByRef index As String)
ev.Text = False
With SerialPort1
.Open()
.DiscardInBuffer()
.DiscardOutBuffer()
.WriteLine("AT+CMGS=" & PDULenth & Chr(13))
System.Threading.Thread.Sleep(500)
.WriteLine(PDUMessage & Chr(26))
System.Threading.Thread.Sleep(7000)
Dim result As New RichTextBox

result.Text = .ReadExisting

index = Mid(result.Lines(4), 8).Trim
.Close()
End With
ev.Text = True
End Sub