Em Visual Basic 6.0, o código
Do While Not EOF(1)
significa
enquanto não for fim do arquivo #1 faça
enquanto não for encontrado o valor 1 no arquivo aberto faça
sempre que for encontrado o valor 1 no arquivo aberto faça
feche o arquivo #1
abra o arquivo #1
{TITLE}
{CONTENT}
{TITLE}
Aguarde, enviando solicitação...