Sich verändernde Daten aus Zelle auslesen und in Textdatei schreiben

Moin

ich habe wieder ein kleines Problem und konnte in der Suche nichts finden.

Ich habe ein Button der beim klicken in der Zelle nebenan eine Vorgangsnummer hochzählt. Nach klicken des Button soll er jetzt allerdings noch zusätzlich die Vorgangsnummer die er erstellt in eine Textdatei schreiben.

Dies funktioniert auch schon, allerdings bei wiederholtem klick und neuer vorgangsnummer überschreibt er die alte textdatei. Er soll aber die vorhandene benutzen und den Text hinten einfügen. Die Textdatei soll als Sicherung dienen falls die Vorgangsnummern in der Exceldatei mal verloren gehen. So weiss man immer welche Vorgangsnummer zuletzt erstellt wurde.

Private Sub button1_Click()
Dim Textdatei As String
Dim var1 As String
With Range("G32")  
        .Value = .Value + 1
End With
Textdatei = InputBox("Vorgangsnummern:", "Vorgangsnummer speichern", "c:\xxx\xxx\xxx\Vorgangsnummern.txt")  
  var1 = Application.Range("Änderungsantrag!G32")  
  Open Textdatei For Output Access Write As #1
  Write #1, var1
  Close #1

End Sub