Povoar comboboxs a partir de um ficheiro texto

[BlackSmith]

Estou a tentar povoar duas combobox com dados de um ficheiro de texto, que tem o seguinte formato:

marca;modelo;quantidade

alcatel;511;10

alcatel;720;3

nokia; n73;10

nokia;n95;2

O que pretendo é :

Na primeira combobox a marca e, automaticamente na segunda o modelo.

O que tenho apenas me permite carregar todos os dados do ficheiro de texto na primeira combobox:

        Dim reader As String
        reader = My.Computer.FileSystem.ReadAllText("mobile.txt")
        Dim strs() As String
        strs = Split(reader, Environment.NewLine)
        For Each s As String In strs
            ComboBox1.Items.Add(s)
        Next

Alguém me pode ajudar?

[ribeiro55]

Eu utilizaria um

Dictionary(Of String, Dictionary(Of String, String))

para armazenar os dados depois da leitura.

Mas isso também é porque eu adoro dicionários. Provavelmente haverá outras maneiras mais práticas para o fazer mas para mim é o que me parece mais prático.

Depois fica fácil de povoares as combos.