Crear varios txt o solo 1?

[nicomv95]

Buenas!! Les explico un poco nuestro programa. Este lo que hace es por una parte conecta con una bd tiene todas sus consultas y todo. Y por otra parte se conecta a una camara ip y con un webbrowser la visualiza. Todo eso estaria terminado.
El problema que tenemos ahora es en el menu principal le agregamos un boton que lleva a configuraciones donde se podria cambiar la ip del servidor mysql y el puerto. Y lo mismo para la ip de la camara y el puerto. Esas opciones seria por si cambiaran de ip los servidores o pasara cualquier cosa. (Es más por las dudas ya que se utilizaran ip fijas para cada uno)
Entonces lo que necesitamos hacer es si crear 4 txt (las 2 ip y los 2 puertos) o en uno solo con las 4 opciones y como hacer para esto.
La "configuracion" del programa haria esto:
-Si los txt no existen los crea y les agrega ip y puertos por defecto y carga los datos en los 4 textbox (seria para la primera vez q corre el programa)
Si los txt existian solo carga los datos en los textbox
Luego en el codigo del programa donde conecta con la bd en host y port utilizaria esos datos desde los txt y en el webbrowser cargamos la ip+puerto para la camara tambien desde los txt.
Con mis compañeros estamos un pocos perdidos en esta parte de crear y actualizar los txt :/ Les agradecemos por cualquier ayuda.
Hasta luego!

[nicomv95]

Segui buscando y encontre una ayuda en una guia de esta misma pagina. Mal yo por no buscar bien :P
Ahora me quedo algo asi el codigo:

Código:

Private Sub Form_Load()
Dim ipb As String
Dim Linea As String
ipb = App.Path & "\ipb.txt"
If Dir(ipb) = "" Then
    ' No Existe
Open ipb For Output As #1
Print #1, "localhost"
Close #1
 Open ipb For Input As #1
  Do While Not EOF(1)
  Line Input #1, Linea
  Text1.Text = Linea
  Loop
Else
    ' Existe
  Open ipb For Input As #1
  Do While Not EOF(1)
  Line Input #1, Linea
  Text1.Text = Linea
  Loop
End If
  Close #1
End Sub

Creo que ahora mas o menos me manejaré. Gracias :)