CSVDE ouput til mappe-visning

det ser ud til at 'treeview' komponenten kan bruges.. nu mangler jeg blot at finde en nem måde at få mine data lagt ind i 'treeview'...

nedenstående kode ser ud til at gøre arbejdet for mig.. :-)
Poster den her, så andre kan bruge den som inspiration..

    Dim nd As Node

    Dim fso As New Scripting.FileSystemObject
    Dim oTS
    Dim strTemp As String
    Dim strArr() As String
    Dim strRel As String
    Dim strKey As String
    Dim i As Integer
           
    'ForWriting / ForAppending / ForReading
    Set oTS = fso.OpenTextFile(App.Path & "\ou.csv", ForReading)
             
   
    i = 0
    While Not oTS.AtEndOfStream
        strTemp = oTS.ReadLine
        If Left(strTemp, 2) = "DN" Then GoTo gorintet
        strTemp = LCase(strTemp)
        strTemp = Replace(strTemp, Chr(34), "", 1, , vbTextCompare)
        strTemp = Replace(strTemp, "dc=", "", 1, , vbTextCompare)
        strTemp = Replace(strTemp, "ou=", "", 1, , vbTextCompare)
        strArr = Split(strTemp, ",", , vbTextCompare)
       
        strRel = 0 & Replace(strArr(1), " ", "", 1, , vbTextCompare)
        strKey = "0" & Replace(strArr(0), " ", "", 1, , vbTextCompare)
       
        If i = 0 Then
            TreeView1.Nodes.Add , , 0 & strArr(0), strArr(0)
            i = i + 1
        Else
            TreeView1.Nodes.Add strRel, tvwChild, strKey, strArr(0)
        End If
   
gorintet:
    Wend
   
    oTS.Close
    Set oTS = Nothing
 
    For Each nd In TreeView1.Nodes
        nd.Expanded = True
    Next