<font color=green>' RTF-Datei anhängen</font>
Dim F As Integer
Dim sInhalt As String
 
F = FreeFile
Open "Datei" For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
With RichTextBox1
  .SelStart = Len(.Text)
  .SelText = sInhalt
End With