dim strDados(50) as string
dim I as integer
'Aqui, abra o arquivo texto
for i = 0 to 49
'Aqui, usa a mesma rotina de gravação que vc usou normalmente qdo deu certo, porém o string será pego da seguinte meaneira: strDados(i)
'Ex.: Put #1, 1, wstrDados(i)
next