Private Sub cp_DataReceived(ByVal sender As Object, ByVal e As _
   System.IO.Ports.SerialDataReceivedEventArgs) Handles cp.DataReceived
 
        ' Schreibt anhand des erhaltenen Funktionscodes an die entsprechende 
        ' Eigenschaft den Übergebenen Wert
        'setValues(&H30, cp.BytesToRead)
 
 
        Do
            If cp.ReadChar = 2 Then
                Try
                    'strString = ""
                    Dim i As Integer = 0
                    Do
                        intChar(i) = cp.ReadByte
                        i += 1
                    Loop While ((intChar(i - 1) <> 3) And (i < 30))
 
                    Dim temp(3) As Byte
                    newFrame.bytFC = intChar(0)
                    temp(0) = intChar(4)
                    temp(1) = intChar(3)
                    temp(2) = intChar(2)
                    temp(3) = intChar(1)
                    newFrame.sngValue = System.BitConverter.ToSingle(temp, 0)
 
                    strString += "FC:(" & Hex(intChar(0)) & ")" & "Value : (" & _
                      CStr(newFrame.sngValue) & ")" & vbCrLf
 
                    ' Schreibt anhand des erhaltenen Funktionscodes an die 
                    ' entsprechende Eigenschaft den Übergebenen Wert
                    setValues(intChar(0), newFrame.sngValue)
 
 
                Catch ex As System.IndexOutOfRangeException
                    cp.DiscardInBuffer()
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
            End If
        Loop While (cp.BytesToRead = 0)
 
    End Sub