Private Sub serialConnection_DataAvailable(ByVal sender As Object, _
          ByVal e As EventArgs) Handles SerialConnection.DataAvailable
            Dim nBytes As Integer = serialConnection.Available
            ' Now read the data and report it
            If nBytes > 0 Then
                Dim buffer(nBytes - 1) As Byte
                serialConnection.Read(buffer, 0, buffer.Length)
                MachWas( buffer )
            End If
        End Sub 'serialConnection_DataAvailable