Private Sub Wertübergabe()
 
        If CGlobal.EmpfangenZ1 <> String.Empty Then
 
            If Auswertung(CGlobal.EmpfangenZ1) Then
                LstBoxAntw.Items.Add("1.Zelle, " & Date.Now.ToString( _
                  "HH:mm:ss") & ": " & CGlobal.EmpfangenZ1)
            Else
                MessageBox.Show("Übertragungsfehler")
            End If
 
            CGlobal.EmpfangenZ1 = String.Empty
        End If
 
        If CGlobal.EmpfangenZ2 <> String.Empty Then
            If Auswertung(CGlobal.EmpfangenZ2) Then
                LstBoxAntw.Items.Add("2.Zelle, " & Date.Now.ToString( _
                  "HH:mm:ss") & ": " & CGlobal.EmpfangenZ2)
            Else
                MessageBox.Show("Übertragungsfehler")
            End If
 
            CGlobal.EmpfangenZ2 = String.Empty
        End If
 
    End Sub
 
    ''' <summary>
    ''' Funktion Hilft die Empfangen Texte auszuwerten. Dabei werden die 
    ' Leerzeichen zwischen den Werten entfernt und die Messwerte entsprechend 
    ' zugeordnet.
    ''' </summary>
    ''' <param name="Empfang">Empfangener String vom Serialport</param>
    ''' <returns>Rückgabewert als Boolean (Empfang OK)</returns>
    ''' <remarks></remarks>
    Private Function Auswertung(ByVal Empfang As String) As Boolean
        Dim Text() As String, j As Boolean = True
        Empfang = Empfang.Replace("   ", " ")
        Empfang = Empfang.Replace("  ", " ")
        Empfang = Empfang.Trim(Chr(10), " "c) 'Führende und abschließende 
        ' Leerzeichen und LF-Zeichen entfernen
        Text = Empfang.Split(" "c)
 
        If Text.Length < 1 Then
            Return False
            Exit Function
        End If
 
        Select Case UCase(Text(0))
 
            Case "U0"
                Try
                    CGlobal.Messwerte.Zellsp.Add(CDbl(Text(1)))
                Catch ex As Exception
                    CGlobal.Messwerte.Zellsp.Add(-9999)
                End Try
            Case "U1"
                Try
                    CGlobal.Messwerte.Temp.Add(Val(CDbl(Text(1))))
                Catch ex As Exception
                    CGlobal.Messwerte.Temp.Add(-9999)
                End Try
            Case "U4"
                Try
                    CGlobal.Messwerte.O2.Add(Val(CDbl(Text(1))))
                Catch ex As Exception
                    CGlobal.Messwerte.O2.Add(-9999)
                End Try
            Case "U5"
                Try
                    CGlobal.Messwerte.ElektStrom.Add(Val(CDbl(Text(1))))
                Catch ex As Exception
                    CGlobal.Messwerte.ElektStrom.Add(-9999)
                End Try
            Case "U6"
                Try
                    CGlobal.Messwerte.Zellsp.Add(Val(CDbl(Text(1))))
                Catch ex As Exception
                    CGlobal.Messwerte.Zellsp.Add(-9999)
                End Try
                Try
                    CGlobal.Messwerte.Temp.Add(Val(CDbl(Text(2))))
                Catch ex As Exception
                    CGlobal.Messwerte.Temp.Add(-9999)
                End Try
                Try
                    CGlobal.Messwerte.ElektStrom.Add(Val(CDbl(Text(3))))
                Catch ex As Exception
                    CGlobal.Messwerte.ElektStrom.Add(-9999)
                End Try
 
            Case Else
                j = False
        End Select
 
        Return j
 
    End Function

Ahnungsloser ahnungsloser...