Jetzt habe ich das mal gemacht, aber es kommt die gleiche Fehlermeldung, aber in einer anderen Zeile...
Die Fehlermeldung kommt jetzt in der Zeile : Terminal.AppendText(TextArray(1))
Meine Werte liegen nur so zur Info zwischen 0 und 800.

Code:
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        Control.CheckForIllegalCrossThreadCalls = False
        Buffer = (SerialPort1.ReadExisting)
        'Die Textbox heißt Terminal und die Daten werden dort
        'hineinkopiert()
        'Terminal.AppendText(Buffer)
        'Terminal.ScrollToCaret()
        'Dim Abc As Integer
        'Abc = 10
        Dim TextArray() As String = Split(Buffer, ",")
        Terminal.AppendText(TextArray(1))
        Terminal.ScrollToCaret()
        'Abc = Val(TextArray(1))
        'If (TextArray(0)) = "50" Then
        'ProgressBar1.Value = Abc
        'End If
        'If TextArray(0) = "100" Then
        'ProgressBar2.Value = Abc
        'End If
        'If TextArray(0) = "150" Then
        'ProgressBar3.Value = Abc
        'End If
    End Sub