[Resolvido]Numeração Ano + caracter

Boa tarde, Amigos.

Estou usando o módulo Numeração conforme abaixo do nosso mestre JPaulo, mas estou com uma dúvida e gostaria da ajuda de vocês.
Queria na numeração incluir o caracter (X) Xis no início da numeração e assim os números subsequentes.

Ex:X001/2016, X002/2016, etc...

Uso o código abaixo:

Public Function NumeracaoAno3() As String
'By JPaulo@2009
Dim fazcodigo(1) As Integer, temporario As Integer

fazcodigo(1) = Nz(DMax("Left(ControleNumero,4)", "Tab_LoteXaroparia", "Right(ControleNumero,4)=Year(Date())"), 0)

For I = 1 To UBound(fazcodigo)
If temporario < fazcodigo(I) Then temporario = fazcodigo(I)
Next

NumeracaoAno3 = Format(temporario + 1, "000") & "/" & Year(Date)

End Function


** Este código acima funciona na perfeição com números somente, mas gostaria de incluir este caracter para identificação de um setor, pois já utilizo a numeração para outro formulário e não gostaria da confusão no momento da procura, visualização, etc...

Desde já agradeço a quem puder informar como editar este módulo para tal execução,

Att,

Olá APJesus,

Posta o bd por favor para a gente fazer alguns testes.

Good, Meu acesso é restrito para up e donw onde trabalho.
Muito obrigado pela atenção. Mas resolvi da seguinte maneira: criei um cx texto como espelho deste e concatenei o caracter que preciso. assim não precisei mexer no módulo/código.

Mais uma vez agradeço a todos que visualizaram e pensaram em uma maneira de ajudar.

Olá Alessandro, obrigado pelo retorno.

No código ficaria assim:

Código:

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

Repare que onde está o "X" também poderia ser uma variavel ou mesmo Série selecionada num form , exemplo:

Código:

NumeracaoAno3 = Forms!VENDAS!SERIE & Format(temporario + 1, "000") & "/" & Year(Date)

Não testado
Abraço