[Resolvido]Formatação de numero calculado em VBA

Boa tarde a todos,

Estou com um problema que pode ser simples, mas não estou conseguindo resolver,

Em meu formulário é gerado um numero em um campo "ASP" com base no valor mais alto deste campo considerando os critérios:

Me.ASP.Value = IIf(DMax("[ASP]", "Histórico de Pagamento", "[Código do Contrato] = Código_do_Contrato") <> 0, DMax("[ASP]", "Histórico de Pagamento", "[Código do Contrato] = Código_do_Contrato"), 0) + 1

Esta funcionando corretamente como deveria acontecer, porém estou com dificuldade na formatação do numero, onde tentei varias formas de resolver e nenhuma da certo,

Principal problema, exibir números menores que 10 como 01, 02, 03 ..., no Access esta salvando como  1, 2, 3 ... com isso não consigo ordenar sequencialmente e acaba ficando desta forma: 1, 10, 11, 12, 13, ..., 2, 20, 21, 22, ...

Vi que se alterar manualmente para 01, 02, 03 resolve o problema é que no formulário este campo é seguido a expressão acima e é bloqueado e desabilitado pra edição.
Tentei alterar a mascara e formato, mas sempre continua da mesma forma, até utilizei a expressão Format, porém não consegui fazer da forma certa, pois os números não são exibidos.

Alguém pode me dar uma solução?

Olá marinhor, tudo bom?

 Acredito que esteja salvando como o tipo String, sugiro tentar fazer a conversão do a função CInt() caso o valor seja do tipo inteiro.

ex.
 Me.ASP.Value = CInt(IIf(DMax("[ASP]", "Histórico de Pagamento", "[Código do Contrato] = Código_do_Contrato") <> 0, DMax("[ASP]", "Histórico de Pagamento", "[Código do Contrato] = Código_do_Contrato"), 0) + 1)

Entendi, neste caso ela teria que ser String, pois não é necessariamente um campo exclusivo para numero pois há entradas como 0, 0A, 0B e 0C desta forma não é totalmente números.

Neste caso deveria usar alguma formatação para tipo string?

Olá a todos, voltando pra fechar,

Não tive outra alternativa, tive que descaracterizar este campo deixando apenas como numero e informações com código atribui a outro campo, desta forma usando o Format deu certo:

Format(IIf(DMax("[ASP]", "Histórico de Pagamento", "[Código do Contrato] = Código_do_Contrato") <> 0, DMax("[ASP]", "Histórico de Pagamento", "[Código do Contrato] = Código_do_Contrato"), 0) + 1, "00")