Código:
Dim a As String
If a = "" Then
Open "c:\texto.txt" For Input As #1
Input #1, a
Close #1
End If
If a <> "" Then
Open "c:\nuevo.txt" For Output As #2
Print #2, "<contact>" & a & "</contact>" & vbCrLf
Close #2
End If
Lo q pregunto es q como al tener el archivo de texto unas 900 lineas, pues como podria acer para q lea una linea luego la escriba en el otro archivo, y cuando vuelva a tener q leer el archivo de origen lea la 2 luego la 3 y asi sucesivamente