Private Sub Command1_Click()
  Dim myVar As String
  myVar = "Irgend etwas"
 
  With RichTextBox1
    .SelStart = Len(.Text)
    .SelBold = True
    .SelText = myVar
    .SelBold = False
 
    .SelText = Text1.Text
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de