Werte in TXT Datei überschreiben

Sub AppendText()
Dim varDateiname As Variant
Dim intMax As Integer
Dim bolNeu As Boolean
Dim intFF As Integer
Dim lngNummer As Long
Dim strText As String
Const strDateiname As String = "_Nummern.txt" 'teil des Dateinamens
Const strVerzeichnis As String = "C:\" 'Verzeichnis mit den Textdateien
'Prüfen ob Dateien schon vorhanden
varDateiname = Dir(Pathname:=strVerzeichnis & Application.PathSeparator _
& "*" & strDateiname)
If varDateiname = "" Then
varDateiname = strVerzeichnis & Application.PathSeparator & "1" & strDateiname
bolNeu = True
Else
'Letzte Nummerndatei ermitteln
intMax = 1
Do Until varDateiname = ""
If CInt(Left(varDateiname, InStr(1, varDateiname, "_") - 1)) > intMax Then
intMax = CInt(Left(varDateiname, InStr(1, varDateiname, "_") - 1))
End If
varDateiname = Dir
Loop
varDateiname = strVerzeichnis & Application.PathSeparator & intMax _
& strDateiname
End If
intFF = FreeFile()
If bolNeu = True Then
lngNummer = 1
Else
'Nummer in der letzten eingetragenen Zeile ermitteln.
Open varDateiname For Input Access Read As #intFF
Do Until EOF(intFF)
Line Input #intFF, strText
Loop
Close #intFF
lngNummer = CLng(Mid(strText, 4)) + 1
If lngNummer > 1000000 Then
varDateiname = strVerzeichnis & Application.PathSeparator & intMax + 1 _
& strDateiname
lngNummer = 1
End If
End If
Open varDateiname For Append As #intFF
strText = Worksheets(2).Range("A1") & Format(lngNummer, "0000000")
Print #intFF, strText
Close #intFF
End Sub

Hiermit wird eine Txt Datei unter C:\gespeichert in der eine fortlaufenden Nummer Zeilenweise geschrieben wird bis diese bei 1000000 angelangt ist.
Hier ein Bsp.: https://www.herber.de/bbs/user/52766.txt
Dann wird eine 2.TXT Datei erzeugt und wieder bis 1000000 geschrieben u.s.w. In Tabelle2 Zelle A1 steht P1_ die mit der Nummer gespeichert wird.
Jetzt möchte ich gern, dass immer der alte Wert in der TXT Datei überschrieben wird bis 1000000 erreicht ist erst dann soll die zweite TXT Datei erstellt u.s.w.
Hier ein Bsp.: https://www.herber.de/bbs/user/52767.txt
Kann mir bitte jemand dabei behilflich sein dies zu lösen.
Vielen Dank im voraus!
MFG Andre