Private Sub cmdSend_Click()
On Error Resume Next
Dim PortN As Integer
Dim sms_text As String
Dim var1, var2 As Variant
Dim cnt, per1, per2 As Integer
Dim notbuf As Boolean

    PortN = Int(cmbPort.Text)
    MSComm1.CommPort = PortN
    MSComm1.Settings = "115200,N,8,1"
    MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then
    var1 = "AT+cmgf=1" & Chr(13) & Chr(10)
    MSComm1.Output = var1
    

While Not notbuf
    per1 = MSComm1.InBufferCount
    per2 = MSComm1.InBufferCount
If per1 = per2 And per1 <> 0 Then notbuf = True
Wend

var2 = MSComm1.Input
Sleep 100
notbuf = False
                       
var1 = "AT+cmgs=" & Chr(34) & Trim(txtNum) & Chr(34) & Chr(13) & Chr(10)
MSComm1.Output = var1
Sleep 100

While Not notbuf
    per1 = MSComm1.InBufferCount
    per2 = MSComm1.InBufferCount
If per1 = per2 And per1 <> 0 Then notbuf = True
Wend

var2 = MSComm1.Input
Sleep 100
notbuf = False

var1 = txtSMStext & Chr(13) & Chr(10) & Chr(26) & Chr(13) & Chr(10)
MSComm1.Output = var1
Sleep 100

While Not notbuf
    per1 = MSComm1.InBufferCount
    per2 = MSComm1.InBufferCount
If per1 = per2 And per1 <> 0 Then notbuf = True
Wend

var2 = MSComm1.Input
MSComm1.PortOpen = False
Sleep 100
   
    MsgBox "Your message has been sent!"
    Else
    MsgBox "Port opening error!", vbInformation, "Port opening"
    End If
End Sub

Спасибо!!!