vb.net - GSMモデムを介して携帯電話にSMSを送信する

Question

VB.NETを使用して、GSMモデムを使用してSMSを携帯電話に送信する必要があります。

現在、私は次のコードを持っています：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If serialport.IsOpen Then
        serialport.Close()
    End If
    Try
        With serialport
            .PortName = ComboBox1.Text
            .BaudRate = 96000
            .Parity = Parity.None
            .DataBits = 8
            .StopBits = StopBits.One
            .Handshake = Handshake.RequestToSend
            .DtrEnable = True
            .RtsEnable = True
            .NewLine = vbCrLf
        End With
        serialport.Open()
    Catch ex As Exception
    End Try
    serialport.WriteLine("AT+CMGF=1" & vbCr)
    System.Threading.Thread.Sleep(200)
    serialport.WriteLine("AT+CMGS=" & Chr(34) & "destination" & Chr(34) & vbCr)
    System.Threading.Thread.Sleep(200)
    serialport.WriteLine("test message" & vbCrLf & Chr(26))
    System.Threading.Thread.Sleep(200)
End Sub

問題は、このコードが機能していないようです。

これが正しいかどうか確認できますか？または、これを支援するスレッドをいくつか教えてください。