dato - opret mappe

hejsa alle sammen.

Kan i hjælpe mig med:
når den gemmer filen som et nummer, skal den skrive nummeret efterfulgt af datoen.

den skal ligge det i mappen årstal, hvis den ikke eksister, skal den oprette den.

------------------------
Sub auto_open() 'Denne sub køres automatisk når regnearket åbnes i Excel
  filnummer = FreeFile
  Dim Varenummer As String
  Open "C:\Documents and Settings\butik\My Documents\Backup af Skabeloner\regning_nr.txt" For Input As #filnummer
    Line Input #filnummer, Varenummer  'Putter 1. linie ind i Varenummer
  Close #filnummer
  Range("B3").Select
  ActiveCell.Value = Val(Varenummer)
  Range("B3").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("B3").Select
  Open "C:\Documents and Settings\butik\My Documents\Backup af Skabeloner\regning_nr.txt" For Output As #filnummer
  Print #filnummer, ActiveCell.Value 'Skriver indholdet af celle A1 til filen
  Close #filnummer
      FilNavn = Range("B3").Value
    ActiveWorkbook.SaveAs Filename:="C:\butik Salgsbilag\årstal\ " & FilNavn - Format(Date, yyyy - mm) & ".xls"
End Sub