Function SendSMS(ByVal mTo As String, ByVal mText As String) As Boolean
        Try
            SP.PortName = "COM10"
            SP.BaudRate = 9600
            SP.Handshake = IO.Ports.Handshake.RequestToSend
            SP.RtsEnable = True
            SP.DtrEnable = False
            SP.StopBits = IO.Ports.StopBits.Two
            SP.WriteTimeout = 3000
            SP.ReadTimeout = 3000
            SP.NewLine = Chr(13)
            SP.Open()
            SP.WriteLine("at+cmgf=1")
            SP.ReadLine()
            SP.WriteLine("at+cmgs=""" & mTo & """")
            SP.ReadLine()
            SP.WriteLine(mText & Chr(26))
            Dim myThread As New Threading.AutoResetEvent(True)
            myThread.WaitOne(3000, False)
            SP.ReadLine()
            SP.Close()
        Catch ex As Exception
            Return True
        End Try
    End Function