Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
 
    End Sub
 
bzw.
 
    Private Sub SerialPort1_ErrorReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialErrorReceivedEventArgs) Handles _
      SerialPort1.ErrorReceived
 
    End Sub