Text am anfang einer Textdatei speichern

Mahlzeit,
hab folgendes problem ich will 4 variablen in einer textdatei speicher
die schon inhalt hat.
das mit dem speichern ist nicht das problem,
aber entweder wird die datei geleert und die 4 varis kommen rein
oder aber sie stehen ganz am ende.
ich möchte sie aber in den ersten vier zeilen haben.
also eine zeile pro variable.
alles bissel aurrücken.

Mahlzeit,

Hi,

hab folgendes problem ich will 4 variablen in einer textdatei
speicher
die schon inhalt hat.
das mit dem speichern ist nicht das problem,
aber entweder wird die datei geleert und die 4 varis kommen
rein
oder aber sie stehen ganz am ende.
ich möchte sie aber in den ersten vier zeilen haben.
also eine zeile pro variable.
alles bissel aurrücken.

Wenn die Datei nicht sehr groß ist, ist probier folgendes

Dim zeile, gesamt, variable1, variable2 as String
Open "deineDatei.txt" For Input as #1
variable1 = "Variable1=123"
variable2 = "Variable2=567"
gesamt=variable1 & vbCrLf & variable2
While Not EOF(1)
 Line Input #1, zeile
 gesamt=gesamt & vbCrLf & zeile
Wend
close #1
Open "deineDatei.txt" for Output as #2
Print #2, gesamt
Close #2

Gruß.Timo

hey danke für die hilfe.
hat alles gut geklappt.
hab es allerdings bissel verändert:

Dim zeile, gesamt, variable1, variable2 As String
Open "Verbrauch.txt" For Input As #1
gesamt = Label4 & vbCrLf & Text1 & vbCrLf & Text2 & vbCrLf & Text3
While Not EOF(1)
 Line Input #1, zeile
 gesamt = gesamt & vbCrLf & zeile
Wend
Close #1
Open "Verbrauch.txt" For Output As #2
Print #2, gesamt
Close #2