Hola buenos dias, estoy haciendo un form en el que guardo varios textbox en un fichero y tengo un problema a la hora de cargarlos
les paso el codigo por si pueden ver el fallo

para cargar desde el fichero:

Private Sub CargarText(Archivo As String)
  Dim Todo As String, Partes() As String, Fichero As Integer
  ' Cargamos todo el contenido del Archivo indicado
 Fichero = FreeFile
  Open Archivo For Input As #Fichero
     Line Input #Fichero, Todo
  Close #Fichero
  ' Dividimos en Partes los datos cargados
 Partes = Split(Todo, "<<")
  ' Colocamos en cada Text sus datos, tantos Text como Partes
 titulo.Text = Partes(0)
 Descripcion.Text = Partes(1)
 nombre.Text = Partes(2)
 mail.Text = Partes(3)
 tel1.Text = Partes(4)
 tel2.Text = Partes(5)
 cuando.Text = Partes(6)
 cuando1.Text = Partes(7)
 duracion.Text = Partes(8)
 
End Sub
 

PARA GUARDAR EN EL FICHERO:

Private Sub guardar_Click()
 Dim foo As Integer
 
    foo = FreeFile
    Open "C:\Archivo.txt" For Output As #foo
        Print #foo, titulo.Text; "<<"; Descripcion.Text; "<<"; nombre.Text; "<<"; mail.Text; "<<"; tel1.Text; "<<"; tel2.Text; "<<"; cuando.Text; "<<"; cuando1.Text; "<<"; duracion.Text
    Close #foo
 
End Sub
 

Espero me puedan ayudar por que al compilar dice:

El miembro ya existe es un modulo de objeto del que proviene este modulo de objeto

la linea que resalta cuando da el error es
Private Sub CargarText(Archivo As String)

sorry no sabia que code se usaba para postear

ya lo he revisado y no esta llamada dos veces de hecho esta en un boton y no le llamo desde ningun otro sitio.....
pero no entiendo el por que da fallo....

Raul338 Edit: Te edite el codigo, agregaba poco y nada (2 eventos vacios y un navigate)

ah vale entiendo...
deberia llamarlo desde el boton poniendole cargartext()
pero estoy muy obtuso y me da ambiguedad...
como deberia llamarlo?

no te entiendo.... no llevo mucho en esto de visual si me puedes decir mas concreto...
graciass por la ayuda