VB Text aus Textbox untereinander in eine Textdatei speichern

Hallo Leute,

Also als erstes einmal ich hab bestimmt jetzt schon zwei Tage damit verbracht, im Internet danach zu suchen, wie man einen Text aus einer Texbox in eine Datei speichert. Aber jetzt zu meiner frage:

Also ich habe schon ein Code gefunde, der mir das was ich geschrieben habe (in einer Textbox) in eine Datei kopiert, aber wenn ich das dann noch mal machen will, überschreibt er den Text, den ich vorher geschrieben habe und in der Textdatei abgespeichert habe. Ich möchte, dass das was ich in die Textbox geschrieben habe in der ersten Zeile ist . Wenn ich das dan wiederhole mit einem anderm Text in der Textbox, soll der zweite Text unter dem erstem Text in der .txt-Datei stehen. So soll es möglichst immer weiter gehen, sodass der eingegebene Text immer untereinander steht.

Beispiel:
Erstes Mal

Textbox: Hallo1
Button Speichern
------------------------
Zweites Mal

Textbox: Hallo2
Button: Speichern
------------------------

Neu Textdokument.txt.=

Hallo1
Hallo2

Währe echt nett wenn ihr mit helfen könntet.
Vielen Dank popopo
Immer fragen wenn man meinen Text nicht versteht.

Also ganz erlich, immoment hab ich noch garkein Code. Ich habe nur einen Code, der das was in einer Textbox steht in die txt Datei reinschreibt, aber das dann in die erste Zeile setzt und den Rest darunter. Ich will es aber genau andersrum, so dass was ich in die Textbox schreibe unter den vorhandenen Text kommt.

Dim zeile, gesamt, variable1, as String


Open "Neu Textdokument.txt" For Input as #1


variable1 = Texbox1.text


gesamt=variable1 & vbCrLf


While Not EOF(1)


Line Input #1, zeile


gesamt=gesamt & vbCrLf & zeile


Wend


close #1


Open "Neu Textdokument.txt" for Output as #2


Print #2, gesamt


Close #2

Na also geht doch. Jetzt hab ichs selbst rausgefunde. Also eigt. vb@archiv hat mit geholfen, aber egal.

Für die, die es interesiert ist hier der Code:

' Einzelne Zeile an eine Textdatei anhängen
' sFilename:  vollständiger Name der Datei
' sLine    :  Inhalt, der gespeichert werden soll
' ===============================================
Public Sub txt_AppendLine(ByVal sFilename As String, _
  ByVal sLine As String)
 
  Dim F As Integer
 
  ' Datei zum "Anhängen" von Daten öffnen
  ' und Textzeile ans Ende anfügen
  F = FreeFile
  Open sFilename For Append As #F
  Print #F, sLine
  Close #F
End Sub

Trotzdem vielen dank!
mfg popopo