Read And Write SMS In VB .Net

For Writing SMS

            '.Write("AT+CMGF=1" + vbCrLf)            
            cescQuote = Char.ConvertFromUtf32(34)
            sphnPhoneNo = "+914567352312"
            atcCommand = "AT+CMGS=" + cescQuote + sphnPhoneNo + cescQuote + vbCrLf + "WORLD" + har.ConvertFromUtf32(26)
            '  .Write(atcCommand + vbCrLf)
            .WriteLine(atcCommand + vbCrLf)

            TextBox1.Text = .ReadExisting()
            .DiscardOutBuffer()
            .Close()

For Sending SMS 

        Dim comSerial As New System.IO.Ports.SerialPort
        Dim atcCommand As String
        Dim sphnPhoneNo As String
        Dim cescQuote As Char
        Dim s As String


        With comSerial
            .PortName = "COM1"
            .BaudRate = "9600"
            .StopBits = IO.Ports.StopBits.One
            .DataBits = 8
            .Parity = IO.Ports.Parity.None
            .ReadBufferSize = 10000
            .ReadTimeout = 1000
            .WriteBufferSize = 10000
            .WriteTimeout = 10000
            .RtsEnable = True

            .Open()
            .DiscardOutBuffer()
            'for reading sms

            'atcCommand = "AT+CMGR=10"        'to read from inbox
            '.Write(atcCommand + vbCrLf)     'execute command on buffer
            'TextBox1.Text = .ReadExisting()