Crear varios txt o solo 1?

[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 :)