Formatação de Numeros

[Marcelo Ribamar 0]

Pessoal, boa noite

alguém pode me ajudar?

estou tentando fazer um arquivo de exportação de dados para ser importado posteriormente para um ERP. mas no lay-out do mesmo tem um campo número que são de 12 caracteres e 4 decimais sem pontos nem virgulas até aí tudo bem, mas ele tem que ser precedido de 0, ou seja para mim representar 1 tem que ser 000000010000, como faço isso com o FormatNumber() ou outra função qq?

[quintelab 91]

Public Function StrZero(nNumero As Variant, nCasas As Integer)
StrZero = Right("000000000000" + LTrim(nNumero), nCasas)
End Function

Fonte: http://www.mundoaccess.hpg.com.br/dicas.htm

 

Abraços...