Отправка SMS на мобильный телефон через USB-Modem

   Public Function SendSMS() As Boolean
        If SMSPort.IsOpen = True Then
            'sending AT commands
            SMSPort.WriteLine("AT")
            SMSPort.WriteLine("AT+CMGF=1" & vbCrLf) 'set command message format to text mode(1)
            SMSPort.WriteLine("AT+CSCA=""+919822078000""" & vbCrLf) 'set service center address (which varies for service providers (idea, airtel))
            SMSPort.WriteLine("AT+CMGS=  + TextBox1.text + " & vbCrLf) ' enter the mobile number whom you want to send the SMS
            _ContSMS = False
            SMSPort.WriteLine("+ TextBox1.text +" & vbCrLf & Chr(26)) 'SMS sending
            MessageBox.Show(":send")
            SMSPort.Close()
        End If
    End Function

Namespace SMSSender
End namespace

       Public Sub New(mainConfig As ConfigClass)
            Me.InitializeComponent()
            Me.FillConfigParameters(mainConfig)
            Me.ScanForModems()
        End Sub

   Private Sub FillConfigParameters(cfg As ConfigClass)
            Dim num As Integer = Me.lbModems.Items.IndexOf(cfg.Modem)
            Me.lbModems.SelectedItem = num
            Me.cbBaudRate.SelectedIndex = Me.cbBaudRate.Items.IndexOf(cfg.PortBaudRate.ToString())
            Me.cbDataBits.SelectedIndex = Me.cbDataBits.Items.IndexOf(cfg.PortDataBits.ToString())
            Select Case cfg.PortParity
                Case Parity.None
                    Me.cbParity.SelectedIndex = 2
                Case Parity.Odd
                    Me.cbParity.SelectedIndex = 1
                Case Parity.Even
                    Me.cbParity.SelectedIndex = 0
                Case Parity.Mark
                    Me.cbParity.SelectedIndex = 3
                Case Parity.Space
                    Me.cbParity.SelectedIndex = 4
            End Select
            Select Case cfg.PortStopBits
                Case StopBits.One
                    Me.cbStopBits.SelectedIndex = 0
                    Return
                Case StopBits.Two
                    Me.cbStopBits.SelectedIndex = 2
                    Return
                Case StopBits.OnePointFive
                    Me.cbStopBits.SelectedIndex = 1
                    Return
                Case Else
                    Return
            End Select
        End Sub