Private Sub Command1_Click()
seite = "Seite " & Label4.Caption
SeiteEnde = "Ende " & seite
Neues = RichTextBox1.Text
RichTextBox1.Text = ""
 
RichTextBox1.LoadFile ("C:\hallo.txt")
 
altes = RichTextBox1.Text
suche = InStr(1, altes, seite)
If suche > 0 Then 'Formular durchsuchen nach schon gespeicherten seiten
Neues = RichTextBox1.Text
RichTextBox1.LoadFile ("C:\hallo.txt")
altes = RichTextBox1.Text
 
Kill ("C:\hallo.txt")
RichTextBox1.Text = ""
RichTextBox1.SaveFile ("C:\Hallo.txt")
 
 
Else
 
altes = altes & Chr(13) & Chr(13) & seite & Chr(13) & Neues & Chr(13) & _
  SeiteEnde
End If
RichTextBox1.Text = altes
RichTextBox1.SaveFile ("C:\hallo.txt")
RichTextBox1.Text = Neues
End Sub