aqui esta el codigo completo y solucionado:
lo unico es una duda como puedo hacer para que el archivo pueda cambiar de nombre?
me refiero a que pueda guardar varias fichas en distintos ficheros
para posteriormente abrirlos según interese.

 
 
'Función Api Sleep Para generar una espera o retardo de tiempo
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
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
Private Sub abrir_Click()
dim Archivo as string
Archivo="c:/Archivo.txt"
CargarText(Archivo)
End Sub
 
Private Sub Command1_Click()
WebBrowser1.Navigate2 Text1.Text
End Sub
 
Private Sub Command2_Click()
 
WebBrowser1.SetFocus
'SendKeys ("hola")
End Sub
 
 
 
Private Sub Form_Load()
WebBrowser1.Navigate2 ("http://www.google.es")
 
End Sub
 
Private Sub Text2_Change()
 
End Sub
 
 
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
 
 

HOLA!!!

Para abrir varios archivos vas a tener que modificar esta Parte:

Private Sub abrir_Click()
dim Archivo as string
Archivo="c:/Archivo.txt"
CargarText(Archivo)
End Sub
'Aca cambia lo de archivo = "c:\archivo.text" por algo mas dinamico
 

Para que te lea mas de una linea del archivo hace:

Open Archivo For Input As #Fichero
  DO UNTIL  EOF
     INDICE = INDICE +1
     Line Input #Fichero, Todo(INDICE)
  LOOP
Close #Fichero
'Despues te queda todo guardado en el vector Todo.
 

GRACIAS POR LEER!!!