Tengo un problema al tratar una fecha en macro Excel

Tengo el siguiente código
Sub Fecha()
Dim Fecha As String
Dim dd, mmm, aaaa As String
dd = 9
mmm = 1
aaaa = 2012
Fecha = dd & "/" & mmm & "/" & aaaa
MiCadena = Format(Fecha, " dd/mm/yyyy")
Range("K1").Select
ActiveCell.Value = MiCadena
Range("L1").Select
ActiveCell.FormulaR1C1 = _
"=INT((RC[-1]-DATE(YEAR(RC[-1]-WEEKDAY(RC[-1]-1)+4),1,3)+ WEEKDAY(DATE(YEAR(RC[-1]-WEEKDAY(RC[-1]-1)+4),1,3))+5)/7)"
num_sem = ActiveCell.Value
End Sub
El problema es que no me calcula la formula para hallar el numero de semana. Si cambio la instrucción MiCadena = Format(Fecha, " dd/mm/yyyy")   por (Fecha, "dd/mm/yyyy"), es decir quito el espacio que hay entre " y dd , la formula funciona pero intercambia los valores dd y mmm.
¿Podéis echarme una mano para solucionar el problema?
Gracias, por anticipado.