Visual Basic

Private Sub SerialPort1_DataReceived(ByVal sender As
System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
Handles SerialPort1.DataReceived
        If SerialPort1.BytesToRead > 0 Then
            Dim byteToRead As Integer
            byteToRead = SerialPort1.BytesToRead
            Dim byteArray(byteToRead) As Byte
            Dim lineData As String
            SerialPort1.Read(byteArray, 0, byteToRead)
            lineData = ConvertToString(byteArray)
        End If
    End Sub
    Private Function ConvertToString(ByVal byteArray As Byte()) As String
        Dim tempStringToReturn As String = ""
        For Each bt As Byte In byteArray
            tempStringToReturn = tempStringToReturn + Convert.ToChar(bt)
        Next
        Return tempStringToReturn
    End Function