Kleiner Nachtrag:
Für das laufende Jahr (ich denke du willst beispielsweise 2023):
Jahr = Format(DateSerial(Year(Now()), Month(Now()), 1), "YYYY")
Den kannst du dann, statt deine Inputbox verwenden. Ich nehme an das ist dein Ziel.