Bč io farei l'uso dei dizionari.
codice:
Dim dc As New Dictionary(Of String, String())
'Giocatori delle squadre
Dim inter As String() = {"Zanetti", "Cordoba", "Materazzi", "Ibrahimovic", "Recoba"}
Dim milan As String() = {"Abubameyang", "Gattuso", "Nesta", "Gourcuff", "Kakā"}
Dim roma As String() = {"Taddei", "Mancini", "Totti", "Perrotta", "Juan"}
'Assegno i giocatori a una squadra
dc.Add("Inter", inter)
dc.Add("Milan", milan)
dc.Add("Roma", roma)
'Ottengo i giocatori dell'Inter e li metto nella ComboBox
ComboBox2.Items.AddRange(dc("Inter"))
Se poi hai necessitā di dover apportare delle modifiche alla rosa a runtime ti conviene usare una List(Of String)