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