Dim test As New Dictionary(Of String, List(Of String))
        Dim listDB1 As New List(Of String)
        Dim listDB2 As New List(Of String)
 
        listDB1.Add("Michael 1")
        listDB1.Add("Michael 2")
 
        listDB2.Add("Andrea 1")
        listDB2.Add("Andrea 2")
 
 
        test.Add("3.6.000.0", listDB1)
        test.Add("3.7.000.0", listDB2)
 
        For Each lst As List(Of String) In test.Values
            For Each Str As String In lst
                Console.WriteLine(Str)
            Next Str
        Next lst