Private Sub Command1_Click()
Dim i As Long
With TreeView1
   For i = .SelectedItem.Index To .SelectedItem.Child.LastSibling.Index
    Debug.Print .Nodes(i).Text
Next i
End With
End Sub

Private Sub Form_Load()
Dim i As Long, j As Long
Dim ndx As Node
Dim ndxCh As Node

With TreeView1
.Nodes.Add , , , "d"
For i =  2  To  20 
Set ndx = .Nodes.Add( 1 , tvwChild)
ndx.Text = i
For j =  1  To  10 
    Set ndxCh = .Nodes.Add(ndx.Index, tvwChild)
        ndxCh.Text = j & i
Next j
ndx.EnsureVisible
Next i
Set ndx = Nothing
Set ndxCh = Nothing
End With
End Sub