A função VBA Month retorna um número inteiro correspondente ao mês da data especificada.
Mês(data)
Usando a função Month para obter as informações relevantes da data:
Sub MonthExample1()
myDate = #10/30/2020#
MsgBox Month(myDate) 'Retorna: 10
End Sub
Esta função também aceita datas em formato de texto:
Sub MonthExample2()
myDate = "30/10/2020"
MsgBox Month(myDate) 'Retorna: 10
End Sub