Nao estou vendo problema pois é so ler e formatar os campos assim
codigo = 10
codigo2 = 20
codigo3= 203
Open "c:arq.txt" For Append As #1
Print #1, format(codigo,"0000") & format(codigo2,"00") & format(codigo3,"000")
close #1
vai gravar no arquivo 001020203 onde 0010 20 203 sao os conteudos dos campos
Para ler faca
Dim texto
Open "c:arq.txt" For Input As #1
Line Input #1, texto
codigo = mid(texto,1,4) ' Nao estou me lembrando
codigo2 = mid(texto,5,2)
codigo3 = mid(texto,7,3)
close #1
Nas variaveis codigo.. vam ter o conteudo do arquivo.
É isso ??