Visual Basic - Ayuda con un codigo..

hola.. mi problema es el siguiente..
hace poco que empeze con mis clases de visual basic.. por lo tanto no se usarlo demasiado.
me dieron para hacer un juego del ahorcado (ese que le pones una palabra y vas tirando letras hasta adivinarla)
pude lograr que mi programa al poner una letra y acertar me reemplaze los guiones que ocupaban esa letra..
pero cuando pongo otra que tambien se encuentra en la palabra me borra la anterior..

el codigo que estoy intentando utilizar es el siguiente:

Private Sub cmd_buscar_Click()

If InStr(1, palabra, txt_letra.Text, vbTextCompare) <> 0 Then
frasetmp = ""

For b = "1" To Len(palabra)
If Mid(palabra, b, 1) = txt_letra.Text Then
frasetmp = frasetmp + txt_letra.Text
Else
If Mid(lbl_palabra.Caption, b, 1) <> " _" Then
frasetmp = frasetmp + Mid(palabra, b, 1)
Else
frasetmp = frasetmp + " _"
End If
End If

Next b
End If
frase = frasetmp
lbl_palabra.Caption = frase

no se si se entendera.. pero por lo menos hago el intento..

no se entiende... pero al menos haces el intento...
suerte chavo...
saludos desde buenosaires

Si no quereís ayudar, no contesteís ni hagaís perder el tiempo al que pregunta o al que quiere ayudar.

Vamos con tu problema, lo he resuelto de esta manera

en DECLARACIONES GENERALES, pon esto

Dim PALABRA As String
Dim FRASETMP As String

en el FORM pon esto otro

Private Sub Form_Load()
PALABRA = "HOLA QUE TAL"
For X = 1 To Len(PALABRA)
If Asc(Mid(PALABRA, X, 1)) = 32 Then ALGO = " " Else ALGO = "*"
lbl_palabra = lbl_palabra + ALGO
Next
FRASETMP = lbl_palabra
End Sub

y en el COMMAND esto otro

Private Sub Command1_Click()

For B = "1" To Len(PALABRA)
If Mid(PALABRA, B, 1) = txt_letra.Text Then
Mid(FRASETMP, B, 1) = txt_letra.Text
End If
Debug.Print FRASETMP
Next B

lbl_palabra.Caption = FRASETMP
End Sub

Verás como te funciona

saludos

el DEBUG.PRINT puedes eliminarlo, erapara ver paso a paso los valore sque tomaban las variables

saludos