Private Sub Form_Load()
   Dim TvwLinie As String
   Dim ff As Long
   ff = FreeFile
   Open "F:\Test.txt" For Input As ff
      Do While Not EOF(ff)
         Line Input #ff, TvwLinie
         SetNode TvwLinie
      Loop
   Close ff
End Sub
 
Private Sub SetNode(s As String)
   Dim nodx As Node
   Dim n As Variant
   n = Split(s, ", ")
   If n(0) = "" Then
      Set nodx = TreeView1.Nodes.Add(, , n(2), n(3))
   Else
      Set nodx = TreeView1.Nodes.Add(n(0), tvwChild, , n(2))
   End If
End Sub