Visual Basic - Usar VBA.Day(VBA.Date) con 2 digitos

Sub LEADS_NOCTURNA()

'Copiar y pegar valores

Sheets("FILTRO").Select

    Range("A1:H151").Select

    Selection.Copy

Sheets("NOCTURNA").Select

    Cells.Select

    Range("A1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

'Guardar archivo con nombre y fecha

NombreArchivo = VBA.Year(VBA.Date) & "_" & VBA.Month(VBA.Date) & VBA.Day(VBA.Date) & "_Nocturna"

NombreHoja = "NOCTURNA"

Ruta = ThisWorkbook.Path

Worksheets(Array(NombreHoja)).Copy

    With ActiveWorkbook

    .SaveAs Filename:=Ruta & "\Leads\" & NombreArchivo & ".xlsx", FileFormat:=xlOpenXMLWorkbook

    .Close SaveChanges:=False

    End With

End Sub

VBA.Month(VBA.Date) & VBA.Day(VBA.Date) & "_Nocturna"

Right("0" & VBA.Month(VBA.Date),2) & Right("0" & VBA.Day(VBA.Date), 2) & "_prueba"