Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
   System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        empfangs_string = SerialPort1.ReadLine 'dort werden die empfangenen 
        ' Daten deklariert
 
        Dim regex As New Text.RegularExpressions.regex("[TDF][-\+]?\d+;", _
          Text.RegularExpressions.RegexOptions.Compiled)
        For Each m As Text.RegularExpressions.Match In regex.Matches( _
        empfangs_string)
            empfangs_string = Integer.Parse(m.Value.Substring(1, m.Length - 2))
            Select Case m.Value.Chars(0)
                Case "TI"
                    temp_in_ist = Val()
                Case "TA"
                    temp_out_ist = Val()
 
            End Select
            empfangs_string = buf.Replace(m.Value, "")
        Next
    End Sub