Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Const KORREKTURWERT As Single = -0.7          ' Ggf. anpassen !!!
 
        Dim g As Graphics = RichTextBox1.CreateGraphics
 
        Dim BreiteTextbox As Single
        Dim BreiteText As Single
        Dim BreiteLeerzeichen As Single
 
        Dim AnzahlLeerzeichen As Integer
 
        Dim Zeilenindex As Integer = 4
        Dim Zeilentext As String
 
        With RichTextBox1
            Zeilentext = .Lines(Zeilenindex)            ' Text der Originalzeile
 
            BreiteLeerzeichen = g.MeasureString(" ", RichTextBox1.Font).Width + _
              KORREKTURWERT ' Breite des Leerzeichens
            BreiteTextbox = .Size.Width                 ' Breite der RichTextBox
            BreiteText = g.MeasureString(Zeilentext & "*", .Font).Width ' 
            ' Breite des Textes
 
            AnzahlLeerzeichen = CInt((BreiteTextbox - BreiteText) / _
              BreiteLeerzeichen) ' Anzahl der notwendigen Leerzeichen
 
            If AnzahlLeerzeichen > 0 Then
                Zeilentext = .Lines(Zeilenindex) & Space(AnzahlLeerzeichen) ' 
                ' Leerzeichen anfügen
            End If
 
            .Select(.GetFirstCharIndexFromLine(Zeilenindex), .Lines( _
              Zeilenindex).Length) ' Ab Index, Länge
            .SelectedText = Zeilentext                  ' Original ersetzen
 
            .Select(RichTextBox1.GetFirstCharIndexFromLine(Zeilenindex), .Lines( _
              Zeilenindex).Length) ' Ab Index, Länge
            .SelectionBackColor = Color.LightGreen      ' Zeile erneut markieren
        End With
 
    End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.