Wie lautet hier der erzeugte Dateiname ?

Private Sub Timer2_timer_.xls()   'Datenregistrierung in Excel-Tabelle
Dim Zeile as long
Dim Dateiname as string
Sheets("Mustertabelle").Copy
With activeworkbook.sheets(1)
Zeile = .cells(rows.count, 1).end(xlup)row + 1
.cells(zeile,1).value = Date
.cells(zeile,2).value = Time
... 'hier folgen weitere Messwerte
End with
Right(Date, 4) & Mid(Date, 4, 2) & Left(Date, 2)
Open pdate + "text.xls" For Append As 1
activeworkbook.saveas Dateiname
activeworkbook.close
FileCopy "c:/daten_aktuell/" + pdate + "text.xls", "c:/daten_archiv/" + pdate + "text.xls"
End Sub

Der Dateiname soll nach meinen Vorstellungen folgendermaßen enstehen:
JJJJ.MM.TTtext.xls
Wäre dies der Fall, so wie ich das formuliert habe? Was müsste evtl. angepasst werden?
Zusatzfrage:
Es gab bereits eine ähnliche Datenregistrierung bei der immer wieder der Fehler aufgetreten ist, das die null bei einstelligen Monaten und Tagen nicht mit in den Namen eingeflossen ist. Kann das hier ebenfalls passieren?
Danke im voraus.
christian