Cargar un TreeView

[etxebe]

Hola gente:
Tengo un programilla q kiero q guarde un treeview en un *txt, para luego abrirlo cuando quiera, guardar los cambios....
He encontrau un codigo por ahí para lo primero (guardar el treeview en un txt) y después de adaptarlo, aunque no tengo mucha idea y seguro que se prodría mejorar, me funciona bien. Es este:

Private Sub Guardar_Click()

Dim archivotemp As String
Dim elemento As Node

archivotemp = "C:\Libro1.txt"
nivel = 0
Set elemento = TreeView1.Nodes(1)
Open archivotemp For Output As #1
escribirentxt elemento
Close #1

End Sub

Sub escribirentxt(elemento As Node)

Dim numerotab As String
Dim i As Integer

numerotab = ""
For i = 1 To nivel
numerotab = numerotab & vbTab
Next
Print #1, numerotab & nivel & elemento.Text
If elemento.Children > 0 Then
nivel = nivel + 1
escribirentxt elemento.Child
End If
Set elemento = elemento.Next
If TypeName(elemento) <> "Nothing" Then
escribirentxt elemento
Else
nivel = nivel - 1
End If

End Sub


El problema biene cuando quiero cargarlo. Esto es, en el txt los distintos niveles los distingo con tabulaciones, pero me estoy volviendo loco a la hora de identificarlos y crear el treeview. UNA LOCURA

Espero haberme esplicado bien. si alguien puede ayudarme con algun ejemplo de un codigo se lo agradecere la hostia!!!!!

agur