WRITE A PARTIR DA ULTIMA LINHA

HARRY631 05/11/2009 15:45:08
#327039

Olá!


Como faço q o write pra escrever a partir da ultima linha e nao ficar substituindo???

Open arq For Output As #1
Write #1, cNome.Text & [Ô] - [Ô] & cData.Text & [Ô] - [Ô] & cEndereco.Text & [Ô] - [Ô] & cBairro.Text & [Ô] - [Ô]; cCargo.Text & [Ô] - [Ô] + cDataB.Text + [Ô] - [Ô] + cApre.Text + [Ô] - [Ô] + cComum.Text + [Ô] - [Ô] + cEstadoCivil.Text + [Ô] - [Ô] + cConjuge.Text + [Ô] - [Ô] + cRG.Text + [Ô] - [Ô] + cCPF.Text + [Ô] - [Ô] + cTelefone.Text + [Ô] - [Ô] + cCelular.Text
Close #1