Dim Explorer_Button_List As New List(Of String) From {"GR2", "FU4", "FU5", _
   "FU8", "FU9", "FU10"}
 
       Dim Desktop_Button_List As New List(Of String) From {"GR1", "FU1", _
         "FU2", "FU3"}
 
       For Each UserButtons As String In HIER SOLL DIE LIST OF HERKOMMEN DIE _
         ABER DURCH EINEN STRING ÜBERGEBEN WIRD.

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