mira, yop lo hice y esta funcionado perfect
primero cree un formulario con un boton (command1) un campo texto (text1) un Label (label1)
primero q nada debes declarar la variable palabra como publica
Public palabra As String
en el boton esta el sigte codigo (tambien se puede poner en el load del formulario)
Private Sub Command1_Click()
arreglo = Array("ESPARRAGO", "PELOTA", "AUTOMOVIL", "INTERNET", "PAPA", "LECHUGA", "PARALELEPIPEDO")
valor = Int((7 * Rnd) + 1)
palabra = arreglo(valor)
total = Len(palabra)
For i = 1 To total
cambia = cambia + "*"
Next i
Label1.Caption = cambia
Text1.SetFocus
End Sub
luego en el text1 esta lo q estabas buscando...
If KeyAscii = 13 Then
total1 = Len(palabra)
val2 = Label1.Caption
For y = 1 To total1
If UCase(Text1.Text) = Mid(palabra, y, 1) Then
Var = Var & Mid(palabra, y, 1)
Else
If Mid(val2, y, 1) <> "*" Then
Var = Var & Mid(val2, y, 1)
Else
Var = Var & "*"
End If
End If
Next
Label1.Caption = Var
Text1.Text = ""
Text1.SetFocus
For x = 1 To total1
If Mid(Var, x, 1) <> "*" Then
aux = aux + 1
End If
Next
If aux = Len(palabra) Then
MsgBox "Adivinaste la palabra"
Command1.SetFocus
End If
End If
y ejecutalo, esta 100% probado....
salu2
