[Resolvido] VB6 - Acrescentar 000

Caros,

Solicito gentilmente e desde já agradeço por uma ajuda no caso abaixo:

Como faço para validar um determinado campo na hora de exportar um arquivo para .txt no VB6? Por ex., se o cliente selecionado na hora de exportar o lote possui cnpj (14 dígitos) acrescenta o número 2 na frente, agora se o cliente selecionado possui cpf (11 dígitos) acrescenta três zeros na frente do cpf para totalizar 14 dígitos e acrescenta na frente dos três zeros o número 1.

Muito obrigado.