A função VBA Year retorna um número inteiro correspondente ao ano da data especificada.
Ano(data)
Usando a função Year para recuperar informações relevantes de uma data:
Sub YearExample1() myDate = #10/30/2020# MsgBox Year(myDate) 'Retorna: 2020 End Sub
Esta função também aceita uma data em formato de texto:
Sub YearExample2() myDate = "30/10/2020" MsgBox Year(myDate) 'Retorna: 2020 End Sub