Dim outputBytes() As Byte
Dim i As Long
 
outputSplit = Split("12,142,-119,52,41,-97,33", ",")
ReDim outputBytes(UBound(outputSplit))
 
For i = 0 To UBound(outputSplit)
  If Val(outputSplit(i)) < 0 Then
    outputBytes(i) = 256 + Val(outputSplit(i))
  Else
    outputBytes(i) = Val(outputSplit(i))
  End If
 
  Debug.Print outputBytes(i) & ",";
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de