listDB1.Add("Michael")
        listDB1.Add("Andrea")
        listDB1.Add("Peter")
        listDB1.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)
 
        Dim counter = 0
 
        For Each f In test
            Console.WriteLine(f.Key)
            Console.WriteLine(f.Value(counter))
            counter += 1
        Next