[Resolvido]Numeração Ano a partir de 1000 não gera

Boa tarde a todos,
utilizo o código do nosso mestre J. Paulo:
Entretanto chegou na quantidade de registro 1000 e agora não consigo gerar além desses, alguém pode me ajudar?

Código:

Public Function NumeracaoAno() As String
'By JPaulo@2009
Dim i As Integer
Dim fazcodigo(1) As Integer, temporario As Integer
fazcodigo(1) = Nz(DMax("Left(NumeroLs),3", "tbLimiteSuperior", "Right(NumeroLs,4)=Year(Date())"), 0)
   For i = 1 To UBound(fazcodigo)
       If temporario < fazcodigo(i) Then temporario = fazcodigo(i)
   Next
NumeracaoAno = Format(temporario + 1, "000") & "/" & Year(Date)
End Function

Mude essa linha:

fazcodigo(1) = Nz(DMax("Left(CodigoControle,4)", "tblExemplo", "Right(CodigoControle,4)=Year(Date())"), 0)


Veja que mudou de 3 para 4

Bom dia amigo,
Desculpe-me, funfou direitinho.
Obrigado FabioPaes!

Grato pelo Retorno! e Até a Próxima de Deus quiser!


Não esquece de Marcar o Tópico como RESOLVIDO

Valeu!!!