' Define the event handler for received data. Private SerialDataReceivedEventHandler1 _ As New SerialDataReceivedEventHandler _ (AddressOf DataReceived) ' Specify the routine that runs when ' a DataReceived event occurs at myComPort. AddHandler myComPort.DataReceived, _ SerialDataReceivedEventHandler1 ' This routine runs when data arrives at myComPort. Friend Sub DataReceived(ByVal sender As Object, _ ByVal e As SerialDataReceivedEventArgs) Dim newReceivedData As String ' Get data from the COM port. newReceivedData = myComPort.ReadExisting Console.WriteLine(newReceivedData) End Sub Listing 5. The DataReceived event can detect and retrieve received data.