Dim dic As New Dictionary(Of String, List(Of String))
 
   dic.Add("Georg", New List(Of String)({"x1", "x2", "x3"}))
   dic.Add("Hans", New List(Of String)({"y1", "y2", "y3", "y4"}))
 
   If dic.ContainsKey("Georg") Then
      Dim entries As Integer = dic("Georg").Count
      Dim entryvalue As String = dic("Georg")(entries - 1)
   End If