Public Sub testData()
        fillTB("Some data")
        fillTB("More data")
 
        For i = 0 To 20
            fillTB("=" & New String("=", i) & "=" & (i * 5).ToString() & "%")
            System.Threading.Thread.Sleep(300)
        Next
        fillTB("last line")
    End Sub
 
    Dim sp As Integer = -1 ' Startposition
 
    Public Sub fillTB(ByVal line As String)
        If line.StartsWith("=") AndAlso line.EndsWith("%") Then
            If sp > -1 Then
                TextBox1.SelectionStart = sp
                TextBox1.SelectionLength = TextBox1.TextLength - sp
                TextBox1.SelectedText = line
            Else
                sp = TextBox1.TextLength
                TextBox1.AppendText(line)
            End If
        Else
            If sp > -1 Then
                TextBox1.AppendText(vbCrLf)
            End If
            sp = -1
            TextBox1.AppendText(line & vbCrLf)
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist