Apresentar imagem no PictureBox a partir de pesquisa no textbox nome da imagem

[XerTroV]

Bom dia, pessoal estou tendo dificuldade para montar isso, atualmente estou utilizando assim :

 Select Case ComboBox2.SelectedIndex
            Case 0
                SkinParam.Text = ""
                PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/0.jpg"
                SkinParam.Text = "0"
            Case 1
                SkinParam.Text = ""
                PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/1.jpg"
                SkinParam.Text = "1"
            Case 2
                SkinParam.Text = ""
                PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/2.jpg"
                SkinParam.Text = "2"

Então ao selecionar a case 0 ele ira apresentar a imagem nº 0 na pasta e mostrar o código 0 no textbox

Mais eu gostaria de limpar esse código pois vai até a imagem 1000 por diante então comecei a fazer desta forma :

Public Sub CarregarListaSkin()
        ComboBox2.Items.Clear()
        Dim lineOfContents As String() = IO.File.ReadAllLines("Data\SkinList\ListSkin.txt")
        For Each line In lineOfContents
            Dim nomes As String() = line.Split("|"c)
            ComboBox2.Items.Add(nomes(1))
        Next
        For Each line In lineOfContents
                Dim nomes As String() = line.Split("|"c)
                ComboBox3.Items.Add(nomes(0))
            Next

    End Sub

Então assim ele puxa o nº da skin e o nome da skin a partir de um arquivo de texto com os dados :

1| Skin de Testes
2| Skin de 2

Assim por diante até 1000+

As imagens estão numeradas conforme o nome Skin de 2 com a foto 2.jpg

Seria possível agora ao click combobox ele carregar a imagem conforme o numero apresentado na combobox3 ?

Por que se for usar desta forma :

PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/0.jpg"

Toda vez que for agregar mais uma eu vou ter que entrar na soucer e colocar a informação na case manual, ou deixar já configurado as cases mais e muita informação desnecessária.

Mexendo pensei em fazer desta forma :

    Private Sub CarregarImagem()
        PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/erro.png"

        If ComboBox3.Text = "1" Then
            PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/1.jpg"
        End If


        If ComboBox3.Text = "2" Then
            PictureBox1.ImageLocation = "Data/SkinList/PrintSkin/2.jpg"
        End If

    End Sub

Porém repete o problema de deixar o código fonte já pronto se eu for adicionar algo mais tenho que mexer dentro da soucer.

Obrigado.