Private Sub Command1_Click()
 
' Lesen des Datei-Inhalts
Dim F As Integer
Dim Zeile1 As String
Dim Zeile2 As String
 
F = FreeFile
Open "T:\ArbeitsPRG\in RTF text einfügen und dann formatieren\DeineDatei.txt" _
  For Input As #F
While Not EOF(F)
Line Input #F, Zeile1
If InStr(1, Zeile1, "Test2") Then
Me.RichTextBox1.Font.Size = 30
Zeile1 = Replace(Zeile1, "Test2", "Hallo")
Me.RichTextBox1.Text = Me.RichTextBox1.Text + Zeile1 & vbCrLf
Else
Me.RichTextBox1.Font.Size = 10
Me.RichTextBox1.Text = Me.RichTextBox1.Text + Zeile1 & vbCrLf
End If
 
Wend
Close #F
 
End Sub