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