[Resolvido]Numeração com Ano seguido de número

Olá pessoal. Seguindo o forum por anos e interagindo pela primeira vez. Tenho um campo em uma tabela chamado de código. Os valores nele armazenados possuem o seguinte formato YYYY/0000, ou seja o ano corrente seguido por "/" e um número de quatro dígitos.
Quero automatizar seu preenchimento colocando automaticamente. Gostaria de criar uma função que leia o campo "código" mais recente em uma tabela chamada "tblTeste" e incremente de um seu valor ou, se for após uma mudança de ano, reinicie a numeração com o novo ano. Seria algo assim:

2021/0001
2021/0002
...
2021/0789
2022/0001
2022/0002
...

Alguém poderia me dar alguma dica?

Alterie esse código sugerido por JPaulo mas ao criar um novo registro, o valor do campo código é sempre o ano seguido por 0001 (Não incrementa o valor). AnoNumeracao() como valor padrão

Código:

Public Function AnoNumeracao() As String
'By JPaulo@2009
Dim code(1) As Integer, temp As Integer
code(1) = Nz(DMax("Left([código],4)=Year(Date())", "tblTeste", "Right([Código],4)"), 0)
    For i = 1 To UBound(code)
        If temp < code(i) Then temp = code(i)
    Next
AnoNumeracao = Year(Date) & "/" & Format(temp + 1, "0000")
End Function


Boa tarde Marcelo. Eu gostaria que, assim que carregar o formulário, já traga consigo o novo valor (que seja o valor padrão)

Isso.

Boa tarde Xará!

Perfeito. Funcionou do jeito que eu necessitava. Até quando lanço ocorrências de um sistema legado, como números do passado, ele ajusta automaticamente para o ano corrente e sequencia seguinte. Valeu a ajuda irmão!

Um grande abraço!