Dim test As New Dictionary(Of String, List(Of String))
        Dim listDB1 As New List(Of String)
        Dim listDB2 As New List(Of String)
        Dim listDB3 As New List(Of String)
        Dim listDB4 As New List(Of String)
 
        listDB1.Add("Michael")
        listDB2.Add("Andrea")
        listDB3.Add("Peter")
        listDB4.Add("Martin")
 
        test.Add("3.6.000.0", listDB1)
        test.Add("3.7.000.0", listDB1)
        test.Add("4.1.000.0", listDB1)
        test.Add("2.6.000.0", listDB1)
 
        For Each f In test
            Console.WriteLine(f.Key)
        Next