Option Explicit
 
Dim i As Long
 
Private Sub Form_Load()
    rtf.Text = "Dies ist der reine Text."
End Sub
 
Private Sub Command1_Click() 'Anschrift
    Dim s As String
 
    rtf.SelStart = 0
    s = "Vorname Name" + vbCrLf + _
        "Strasse Nr. 4711" + vbCrLf + vbCrLf + _
        "33333 Ort" + vbCrLf + vbCrLf
    i = Len(s)
    rtf.Text = s + rtf.Text
End Sub
 
Private Sub Command2_Click() 'Anrede
    rtf.SelStart = i
    rtf.SelText = "Sehr geehrter Herr Doktor Müller-Lüdenscheid," + vbCrLf + _
      vbCrLf
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1