private sub Form_load()
   t1.textRTF = "Spiderboy"
    t2.textRTF = "Sielstraße" 
    t3.textRTF = "17"
    t4.textRTF = "90429"
    t5.textRTF = "Nürnberg"
   text.textRTF = "##Adresse##"
End sub
 
Private Sub Command1_Click()
text.TextRTF = Replace (text.TextRTf, "##Adresse",  t1.TextRTF & vbCrLf & _
  t2.TextRTF & " " & t3.TextRTF & vbCrLf & t4.TextRTF & " " & t5.TextRTF)
End Sub