Dim oNode As Node
  Dim nCount As Long
 
  With TreeView1
    nCount = .Nodes.Count
    For Each oNode In .Nodes
      If oNode.Children > 0 Then
        nCount = nCount - 1
      End If
    Next
  End With
 
  MsgBox "Insgesamt Child-Einträge: " & CStr(nCount)