Lo q mejor m a funcionado es_
Public Sub AddFolder(Direccion As String, Tree As TreeView)
On Local Error Resume Next
Dim Separa() As String
Dim i As Integer
Dim Ruta As String
Dim Titulo As String
Separa = Split(Direccion, "\")
For i = 0 To UBound(Separa) - 1
If i = 0 Then Ruta = "\" Else Ruta = Separa(i)
Titulo = Separa(i + 1)
Tree.Nodes.Add Ruta, 4, Titulo, Titulo
Next i
End Sub