Dim nPos As Long
Dim sText As String
 
With RichTextBox1
  ' Cursor ans Ende positionieren
  .SelStart = Len(.Text) + 1
  nPos = .SelStart
 
  ' Neuen Text einfügen
  sText = "neuer Text"
  .SelText = sText
 
  ' neuen Text farbig rot anzeigen
  .SelStart = nPos
  .SelLength = Len(sText)
  .SelColor = vbRed
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de