Private Sub ShowText1(ByVal text As String)
        '  Da die Daten aus einem anderem Thread kommen müssen wir die Ausgabe 
        ' über Invoke machen
 
        If Me.TextBox1.InvokeRequired Then
            Dim d1 As New TextBox1Callback(AddressOf ShowText1)
            Me.Invoke(d1, New Object() {text})     <== hier geschied der Fehler _
              !!
        Else
 
            Me.TextBox1.Text = text
 
        End If
 
 
    End Sub

Schon macht man es richtig funktioniert es !