Problemilla con un juego (ahorcado)

[yampoo]

Hola, estoy realizando un juego, el típico juego el ahorcado y tengo algunos problemillas... a ver si me podríais ayudar, jeje...

Problema 1.-

Al inicio la palabra oculta se muestra toda con * para que no se pueda ver.. esto está echo

For i = 1 To total
cambia = cambia + "* "
Next i

(total = número de caracteres de la cadena).
(cambia = cadena final que irá a un label)

Ahora el problema es substituir * por una letra.

Ej.

Yo escribo la palabra BUTANITO, y en el juego aparece ******** (8 caracteres) lo que me falla es que sí pongo B me aparezca B******* y sí pongo A salga B**A**** ahora mismo me sale sí pongo B B******* pero sí pongo a me aparece ***A****

Código que uso:

cambio = ""

For i = 1 To total

If Mid(mayu, i, 1) = "E" Then

cambio = cambio + "E"

Else

cambio = cambio + "*"

End If

Next i

(mayu = cadena oculta en mayúsculas)
(i = posición del caracter)
(cambio = cadena final que se muestra en el juego)

Funciona mal como he dicho... sólo me muestra las letras E y todo lo demás * aunque ya haya acertado otras letras.

¿Qué falla?

Muchas gracias de antemano!!!!!
Estoy desesperadillo... con esto... llevo un día malo en general...