Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
  System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim instring as String
        instring = SerialPort1.ReadLine
    End Sub