im making a hangman project in vb6 and i need some serious help with it!
my prob is with my loop which is having issues -
this is my code:
Dim guess As String, x As Integer, word As String
word = wordBank(stage)
guess = Text1.Text
For x = 1 To Len(word)
If guess = Mid(word, x, 1) Then
Label1.Caption = "yes"
Else
Label1.Caption = "no"
End If
Next x
my loop only seems to recognise the last letter in my word. help?