Hallo

Bei deiner Methode, müssen die Daten ja imenr die gleiche Länge haben. Wenn der erste Wert anstatt 504 nur 34 beträgt, stimmt deine Auswertung ja nicht mehr.

Ich zerlege die empfangen Daten und speichere sie in ein Array

Code:
 
        Dim Parts As Variant
        Dim Part As Variant
        Dim a As Integer
        Dim wert(10) As String
        
        a = 0
        
        'empfangen String zerteilen und in wert(x) speichern
        Parts = Split(buffer, ",")
        For Each Part In Parts
           wert(a) = CStr(Part)
           a = a + 1
        Next
In Buffer steht der empfange String drin, bei mir werden die Daten mit einem" , " getrennt. Der Rest sollte sich selbst erklären.

MFG
Dieter