color item listbox y leer y guardar .txt

[lokoman]

Crear y agregar datos en un archivo:

Código vb:

Open app.path & "\Archivo.txt" For Append As #1
   Write #1, Numero, NombreCiudad
Close #1
 

Para leer:

Código vb:

Open  app.path & "\Archivo.txt"  For Input As #1
   Do while not EOF(1)
      Input #1, Numero, NombreCiudad
   loop
Close #1