How to Send a Long SMS

[venky]

Dear All,

I am sending the SMS more than 160 characters then it is sending that sms in two sms's but I want to send send that sms in one sms. My poert is send 160 characters only at a time. I am mentioning code bellow.

Public Sub SendSms(ByVal Number As String, ByVal Message As String)
Dim messagetosend As String
    messagetosend = Message
    Debug.Print messagetosend
    If Len(messagetosend) > 160 Then
'            SendSms1 Number, Mid(messagetosend, 1, 160)
'            SendSms1 Number, Mid(messagetosend, 160, 320)
            SendSms1 Number, Mid(messagetosend, 1, 159)
            SendSms1 Number, Mid(messagetosend, 160, 319)
            Else
              SendSms1 Number, Message
    End If
        
End Sub
Public Sub SendSms1(ByVal Number As String, ByVal Message As String)
Dim i
i = 0
tempBuffer = ""
Dim start
 bGreaterSign = False
 Message_sent = "False"
 start = Timer
 On Error Resume Next
 MSComm1.Output = "AT+CMGS=" + Chr$(34) + Trim(Number) + Chr$(34) + vbCr
 While Not bGreaterSign
      DoEvents
      Wait
      If Timer > (start + 50) Then
         MsgBox "Time Out"
         Message_sent = "False"
         Exit Sub
      End If
 Wend
 
   If bGreaterSign Then
      MSComm1.Output = Trim(Message) + Chr$(26)
      start = ""
      start = Timer
      bOK = False
      bError = False
      While Not bOK Or bError
      
                      Debug.Print tempBuffer
                      If InStr(tempBuffer, "ERROR") Then
                         Message_sent = "False"
                         tempBuffer = ""
                         Exit Sub
                      End If
                      Debug.Print Timer
                Debug.Print start + 50
                If Timer > (start + 50) Then
                      MsgBox "Time out"
                      Message_sent = "False"
                      Exit Sub
                  End If
          DoEvents
          Wait
      Wend
       If InStr(tempBuffer, "ERROR") Then
         Message_sent = "False"
         tempBuffer = ""
         Exit Sub
       End If
     
      If bOK Then
         Message_sent = "True"
      Else
         Message_sent = "False"
      End If
   Else
      Message_sent = "Not Possible"
   End If
   If bError Then MsgBox " FAILED"
End Sub

pls let me know the solution