tratando de hacer el juego de ahorcado

[rikimm]

si como veran estoy haciendo ese sencillo juego pero que ma da vueltas en un solo problema estoy utilizando un lista donde tengo las palabras esas palabras las seleciono con un rando de ahi lo mando a una caja de texto para hacer con un for saber el indicide y letra que es y todo funciona con las condiciones que pongo que si una caja de texto(me refiero a la letra que esta escrita ) es igual a una de las letras me aparesca la letra en otra caja de texto el problema qu etengo consiste en que si se repite esa letra como que no cumple la condicion y no me la pone en la caja de texto por decirlo asi tengo al palabra solo de esa palabra me aparecen en sus respectivas cajas de testo hasta la letra l la ultima o no me la pone y no entiendo el porque ya le busque ya la analize y no doy mas dejo mi codigo

Código vb2008:

private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rest, letra As String
        Dim x As Integer
        Dim y As String
 
        rest = TextBox5.Text
        letra = TextBox6.Text
        For x = 0 To rest.Length - 1
            MessageBox.Show(rest(x))
            If rest.Substring(x, 1) = TextBox5.Text(0) Then
                TextBox1.Text = rest(x)
            ElseIf rest.Substring(x, 1) = TextBox5.Text(1) Then
                TextBox2.Text = rest(x)
            ElseIf rest.Substring(x, 1) = TextBox5.Text(2) Then
                TextBox3.Text = rest(x)
            Else
                TextBox4.Text = rest(x)
 
            End If
        Next x
 

este es donde esta el random

Código vb2008:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rand As New Random
 nume = rand.Next(0, 4)
        x = ListBox1.Items(nume)
        TextBox5.Text = x