La función VBA Year devuelve un número entero correspondiente al año de la fecha especificada.
Year(fecha)
Usando la función Year para recuperar información relevante de una fecha:
Sub YearExample1()
myDate = #10/30/2020#
MsgBox Year(myDate) 'Devoluciones: 2020
End Sub
Esta función también acepta una fecha en formato de texto:
Sub YearExample2()
myDate = "30/10/2020"
MsgBox Year(myDate) 'Devoluciones: 2020
End Sub