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