la fecha la tienes en la variable fecha.
cadena = CStr(fecha)
posicion = InStr(1, cadena, "/")
'este sera el dia de la fecha
dia = CInt(Mid(cadena, 1, posicion - 1))
cadena = Mid(cadena, posicion + 1)
posicion = InStr(1, cadena, "/")
'este sera el mes de la fecha
mes = CInt(Mid(cadena, 1, posicion - 1))
Espero que esto te valga
Chao