GRAVAR DADOS NO TXT via VBA

Question

meu codigo grava dados em um arquivo txt

porem preciso delimitar a quantidade de caracter  , dei o valor de "Vnome"

essa variavel tem de ter exatos 32 caracteres

como o nome pode ter mais ou menos

como eu determinaria essa varia para cortar um pedaço do nome ou acrescentar ESPAÇO 

para que ao gravar , o proximo campo grave corretamente na mesma coluna.?

como exemplo 

se for incluir meu nome, ficaria assim

CELIO MENDONCA, tem 14 caracteres incluindo o espaço, certo

    If Len(nome) > 32 Or Len(nome) < 32 Then

        nome = Format(nome, "CELIO MENDONCA                  ")

    End If

ENTÃO, o CELIO MENDONCA seria acrescido após , 18 espaços em branco.

     

   arquivo = ThisWorkbook.Path & "\DADOS.txt"

   On Error Resume Next ' Para poder avançar caso os labels opcionai não são colocados

   Open arquivo For Append As #1

   Print #1, Produto; " "; Contrato; " "; nome; " "; fone; " "; CPF_CNPJ

   Close #1

End Sub

Celio Mendonça

Anapolis/GO

Answer 1

O fórum correto para sua dúvida é https://social.msdn.microsoft.com/Forums/pt-BR/home?forum=vbapt

---

Juliano Nunes - http://linkedin.com/in/julianonunes

Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.

Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.