Private Sub zerlegen(ByVal text As String)
 
 
        If Me.TextBox1.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf ZeigeWert)
            Me.Invoke(d, New Object() {text})
        Else
 
                Me.TextBox1.AppendText(text & vbCrLf)
                Me.TextBox1.ScrollToCaret()
 
       End If
 End Sub