La función VBA Month devuelve un número entero correspondiente al mes de la fecha especificada.
Month(fecha)
Usando la función Month para obtener la información relevante de la fecha:
Sub MonthExample1()
myDate = #10/30/2020#
MsgBox Month(myDate) 'Devoluciones: 10
End Sub
Esta función también acepta fechas en formato de texto:
Sub MonthExample2()
myDate = "30/10/2020"
MsgBox Month(myDate) 'Devoluciones: 10
End Sub