Problemer med automatisk nummertildeling

Har kigget rundt herinde og prøvet at lave noget VBA.
Det ser sådan ud.


Sub auto_open() 'Denne sub køres automatisk når regnearket åbnes i Excel
  filnummer = FreeFile
  Dim Varenummer As String
  Open "C:\Fil.txt" For Input As #filnummer
    Line Input #filnummer, Varenummer  'Putter 1. linie ind i Varenummer
  Close #filnummer
  Range("p15").Select
  ActiveCell.Value = Val(Varenummer)
  Range("m15").Select
  ActiveCell.Value = Val(Varenummer) + 1
End Sub

Sub auto_close() 'Denne sub køres automatisk når regnearket lukkes i Excel
  Dim filnummer As Integer
  filnummer = FreeFile
  Range("m15").Select
  Open "C:\Fil.txt" For Output As #filnummer
  Print #filnummer, ActiveCell.Value 'Skriver indholdet af celle A1 til filen
  Close #filnummer
End Sub


Mit problem er at den ikke tildeler et fortløbende nummer. Startede med at skrive 100 i txt filen, men det bliver slettet og der står kun 0. Derfor bliver der kun tildelt nummer 1.

Hvad har jeg lavet galt?