Dato format i makro

Hej,

Jeg har lavet en .xlt, der indeholder en makro, som indsætter oprettelsesdato når der laves et nyt projekt.

Makroen ser ud som følger:

Private Sub Workbook_Open()
If Not Worksheets("Overslag").Range("AI5") > 0 Then
    Worksheets("Overslag").Range("AI5") = Date
End If
End Sub

Mit problem er at denne dato indgår i en anden makro jeg har lavet for at gemme projektet, her skrives datoen som "dd-mm-åååå" og jeg vil gerne have den til at skrive datoen som "ddmmåååå" når der gemmes.

Min save makro ser ud som følger:

Public Sub GemSom()
Dim wshNetwork
Set wshNetwork = CreateObject("WScript.Network")
  fileTosave = "H:\kunder\" & Range("B5") & "_" & Range("I2") & "_" & Range("AI5") & "_" & Range("AI11")
Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Gem Bilag Som!"
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel)
    If Filnavn = False Then GoTo Afbryd
    If fileTosave <> False Then
    ActiveWorkbook.SaveAs Filnavn
    End If
Afbryd:
End Sub

Jeg har brugt noget tid på at finde en løsning her på siden, men er ikke rigtig kommet frem til noget. Håber der er nogen som kan hjælpe.

/E100