Dateinamen per Makro beim speichern vorgeben | Herbers Excel-Forum

Hallo Forum,
ich möchte beim speichern einer Excelmappe den Typ (xlsm) und ebenfalls den Dateinamen schon vorgeben. Das ist mir auch einigermassen gelungen, aber ich bin mit dem Endergebnis noch nicht so zufrieden.
Der Dateiname soll sich zusammensetzen aus "KL" + Leerzeichen + aktueller Monat [hier ist das Problem] und einer laufenden 4 stelligen Nummer. Der Monat soll dabei aber 2 Stellen haben, also bis einschliesslich September muss eine 0 davor [ z.B. 02 (Februar);09 (September)] und ab Oktober soll nur der Monat geschrieben werden, da der ja ohnehin 2stellig ist. Wie kann ich das ändern (siehe mein Makro)

Private Sub CommandButton1_Click()
Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = "\\sv42159bub9005\buck\Daten\Projekte\"
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
"KL" & " " & Right(Year(Date), 2) & "." & Month(Date) & "xxxx" & ".xlsm", _
FileFilter:="Microsoft Excel-Arbeitsmappe mit Makros (*.xlsm), *.xlsm")
Select Case strDateiname
Case False
Exit Sub
Case Else
ThisWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Select
End Sub