'Variable definieren
    Dim ialt As Long
 
    'Erste Zeile in RTB schreiben
    RichTextBox1.Text = "Text eins Normal"
 
    'letzte Position merken
    ialt = Len(RichTextBox1.Text)
 
    'nächsten Text schreiben
    RichTextBox1.Text = RichTextBox1.Text & "Text zwei Fett"
 
    'neuen Text markieren
    RichTextBox1.SelStart = ialt
    RichTextBox1.SelLength = Len(RichTextBox1.Text) - ialt
 
    'und Fett machen (funktioniert auch)
    RichTextBox1.SelBold = True
 
    'habe ich irgendwo gelesen das man das machen soll
    RichTextBox1.SelLength = 0
 
    'noch eine Zeile schreiben, aber nach dieser Zeile
    'ist alle wieder normal und das Fette ist weg
    RichTextBox1.Text = RichTextBox1.Text & "Text drei wieder normal"