Data Structure VB.Net

Imports System
Imports System.Collections
Imports System.Collections.Specialized
Public Class SamplesStringDictionary
    Public Shared Sub Main()
        Dim myCol As New StringDictionary()
          myCol.Add("red", "R")
          myCol.Add("green", "G")
          myCol.Add("blue", "B")
        For Each val As String In myCol.Values
            Console.WriteLine(val)
        Next val
    End Sub
End Class