Imports System
Imports System.Collections.Generic

Class Sample
  Shared Sub Main()
    ' 入れ子になったListを作成
    Dim dictionary As New List(Of List(Of String))()

    ' Listの中にListを追加
    dictionary.Add(New List(Of String)(New String() {"apple", "action", "after"}))  ' 'a'で始まる単語のList
    dictionary.Add(New List(Of String)(New String() {"big", "best", "bridge"}))     ' 'b'で始まる単語のList
    dictionary.Add(New List(Of String)(New String() {"cheese", "cat", "connect"}))  ' 'c'で始まる単語のList

    dictionary(0).Add("add")        ' 'a'で始まる単語のListにアイテムを追加
    dictionary(1).Add("book")       ' 'b'で始まる単語のListにアイテムを追加
    dictionary(2).Remove("connect") ' 'c'で始まる単語のListからアイテムを削除

    ' 'd'で始まる単語のListを作成
    Dim wordsStartWithD As New List(Of String)(New String() {"drink", "dear", "dig"})

    ' 作成したListを入れ子になっているListの2番目に追加
    dictionary.Insert(1, wordsStartWithD)

    ' すべての単語のListをソートする
    For Each words As List(Of String) In dictionary
      words.Sort()
    Next

    ' 入れ子になっているListの内容を表示
    For Each words As List(Of String) In dictionary
      ' Listの中にあるListの内容を表示
      For Each word As String In words
        Console.Write("{0} ", word)
      Next

      Console.WriteLine()
    Next
  End Sub
End Class

action add after apple 
dear dig drink 
best big book bridge 
cat cheese