Originariamente inviato da gibra
Se non mostri il codice e la stringa 'prima' e 'dopo' la vedo dura...

Immagino che per 'campi' tu intenda 'celle'....

Ecco :
---> Valore nella cella Cells(ContaRiga, 8).Value = "A"

ContaRiga = 2


Do While Cells(ContaRiga, 1).Value <> ""

cSezUrbCat = Cells(ContaRiga, 8).Value
...
RigaOut = Format(cTipoRec, String(2, "@")) & _
...
Format(cSezUrbCat, String(3, "@")) & _
Format(cFoglio, String(4, "@")) & _
....

Print #1, RigaOut

ContaRiga = ContaRiga + 1
Loop

---> Fine

devo farlo diventare "A "

Spero sia stato chiaro