Dim al As New List(Of String)({"asas", "fgdf§"})
Dim bl As New List(Of String)({"xxxx", "zzzz"})
 
Dim dic As New Dictionary(Of String, List(Of String))
 
dic.Add("al", al)
dic.Add("bl", bl)
 
For Each entry As String In dic("al")
    Dim str As String = entry
Next