Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim mList as New List(Of string)

        Dim mListB as New List(Of string)

        Dim mDict as New Dictionary(Of string,List(Of string))

​

        mDict.Add("item1",mList)

​

        mListB.Add("buffer")

        mDict.Add("item2",mListB)

        For each item in mDict

        If item.Value.Count = 0 then Console.WriteLine("empty list") else Console.WriteLine("Got something: " + item.Value(0))

    Next

    End Sub

End Module