Public Function CountCheckedNodes(TrV As TreeView) As Integer
        Dim myNodeCollection As TreeNodeCollection = TrV.Nodes
        Dim myCount As Integer = myNodeCollection.Count ' Определяем количество элементов
        Dim myArray(myCount - 1) As Object ' Создаём массив
        Console.WriteLine(myCount) ' Инфа странноватая
        Dim i As Integer
        myNodeCollection.CopyTo(myArray, 0) ' Всю коллекцию в массив
        For i = 0 To myArray.Length - 1  ' Бежим по массиву
            If CType(myArray(i), TreeNode).Checked Then ' Если нода чекнутая 
                CountCheckedNodes = CountCheckedNodes + 1 ' Посчитаем её
               
            End If
        Next i

    End Function

Console.WriteLine(myCount)

Dim s As Integer
For Each node As TreeNode In TrV.Nodes ' TreeNode.Nodes
            If node.Nodes.Count > 0 Then
  
                If node.Checked Then
                    s = s + 1
                Else
                
                End If
            Else
                

            End If
Next node

Console.WriteLine (s)