hi there

Im Currently busy creating hangman But stuck with a little problem

I have a label which displays the secret word in "********" astrics.


now I have managed 2 get the letters chosen to be able to display in the label.

My question is what the heck am I doing wrong..


Eg of the coding so far
For i = 1 To Len(NewWord)
If TxtGuess.Text = UCase(Mid(NewWord, i, 1)) Then

LblWord.Caption = UCase(Mid$(LblWord.Caption, 1, i) & Mid$(NewWord, i, 1) & Mid$(LblWord.Caption, i + 1))
'LblWord.Caption = LblWord.Caption & NewWord & "*"

Correct = True
End If

Next i

It is spose 2 built the caption to say Eg : *A* ..Say the word
was "MAN"

Please help