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)