I am trying to create a small family feud game with vb 6.0. Can anyone help try to make this snippet of the code work. The purpose is to check to see if the string in text matches if it doesn't you have 3 chances to get the correct answer. Once count is = to 3 then it should tell you that you have lost. For some reason it is not working. Any help would greatly be appreciated.

Do While count <> 3

If Text1 = "cat" Then

resp = MsgBox("yeah", vbInformation)
Else

resp2 = MsgBox("try again", vbOKOnly)
count = count + 1
Text1 = ""


End If

Loop

If count = 3 Then resp3 = MsgBox("lose", vbOKCancel)


End Sub