POPULAR COMBOBOX A PARTIR DE UM ARQUIVO.TXT

GABRIELHAUPTMAN 11/08/2022 07:32:20
#500301

Bom dia pessoal estou populando a combobox com um arquivo.tct desta forma:

Public Sub CarregarListaSkin()
ComboBox1.Items.Clear()
Dim readfile As New StreamReader("Data\List\in.txt")
Do Until readfile.EndOfStream = True
ComboBox1.Items.Add(readfile.ReadLine)
Loop
readfile.Close()
End Sub

Dentro desse arquivo.txt tem as seguintes informações :

Amazonas
Pará Pará
Mato Grosso
Minas Gerais
Bahia
Mato Grosso do Sul
Goiás
Maranhão
Rio Grande do Sul
Tocantins
Piauí
São Paulo
RondÃ'nia
Roraima
Paraná
Acre
Ceará
Amapá
Pernambuco
Santa Catarina
Paraíba
Rio Grande do Norte
Espírito Santo
Rio de Janeiro
Alagoas
Sergipe
Distrito Federal

Porem agora eu preciso usar desta forma :

1 "Amazonas"
2 "Pará Pará"
3 "Mato Grosso"
4 "Minas Gerais"
5 "Bahia"
6 "Mato Grosso do Sul"
7 "Goiás"
8 "Maranhão"
9 "Rio Grande do Sul"
10 "Tocantins"
11 "Piauí"
12 "São Paulo"
13 "RondÃ'nia"
14 "Roraima"
15 "Paraná"
16 "Acre"
17 "Ceará"
18 "Amapá"
19 "Pernambuco"
20 "Santa Catarina"
21 "Paraíba"
22 "Rio Grande do Norte"
23 "Espírito Santo"
24 "Rio de Janeiro"
25 "Alagoas"
26 "Sergipe"
27 "Distrito Federal"

Terei que usar duas Combobox

Na Combobox1 ele ira apresentar o nº, na Combobox2 ira apresentar o estado, seria possível eu selecionar na Combobox1 o nº 23 e ele puxar automaticamente na Combobox2 "Espírito Santo" e vice versa?

Eu precisava que ma Combobox1 ele puxasse só os números e o Combobox2 ele puxasse o que esta entre ""

Já tentei usar fazendo com que a combobox1 puxasse 2 casas numéricas porem tenho outras opções no programa que há 3 dígitos e da forma que fiz ele só puxa os 2 iniciais.

Alguém poderia me dar uma pista ?

Obrigado.