СМС рассылка компании simcom 900a механической обработке в VB.NET

---

Я ИСПОЛЬЗУЮ SIMCOM900A В СВОЕМ ПРОЕКТЕ ДЛЯ ОТПРАВКИ SMS. Я ПРОТЕСТИРОВАЛ GSM-МОДУЛЬ С ГИПЕРТЕРМИНАЛОМ, ОН РАБОТАЕТ АБСОЛЮТНО НОРМАЛЬНО.НО ЭТО НЕ РАБОТАЕТ С НИЖЕСЛЕДУЮЩИМ VB.NET КОД.

МОЖЕТ ЛИ КТО-НИБУДЬ НАЙТИ МНЕ ОШИБКУ В МОЕМ КОДЕ, ЧТОБЫ ПОМОЧЬ МНЕ,
СПАСИБО ВАМ

Что я уже пробовал:

 Dim SerialPort1 As New System.IO.Ports.SerialPort()



    Private Sub SMS_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        SerialPort1.PortName = "COM2"
        SerialPort1.BaudRate = 9600
        SerialPort1.Parity = Parity.None
        SerialPort1.StopBits = StopBits.One
        SerialPort1.DataBits = 8
        SerialPort1.Handshake = Handshake.RequestToSend
        SerialPort1.DtrEnable = True
        SerialPort1.RtsEnable = True
        SerialPort1.NewLine = vbCrLf
    End Sub

    

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim message As String
        message = RichTextBox1.Text
        Try
            SerialPort1.Open()
            If SerialPort1.IsOpen() Then
                SerialPort1.Write("AT" & vbCrLf)
                System.Threading.Thread.Sleep(200)
                SerialPort1.Write("AT+CMGF=1" & vbCrLf)
                System.Threading.Thread.Sleep(200)
                SerialPort1.Write("AT+CMGS=" & Chr(34) & TextBox1.Text & Chr(34) & vbCrLf)
                System.Threading.Thread.Sleep(200)
                SerialPort1.Write(message & Chr(26))
                MsgBox("Sent")
            Else
                MsgBox("Port not available")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
       
    End Sub
End Class

---