Public Sub COM1_DataReceived(ByVal sender as Object, ByVal e as System.IO.Ports.SerialDataReceivedEventArgs)
   Dim barcode As String = ""
   Dim ch As integer = 0

   ch = COM1.ReadChar()
   While (ch <> 13) And (COM1.BytesToRead>0)

        barcode += Chr(ch)       

   End While

   Form2.Show()

End Sub