Guessing Game

[Crazier]

I have written this code for a guessing game but it doesn't clear the message box to allow for a new guess.
Any suggestions would be appreciated.
Dim intIndex As Integer
Dim intGuess As Integer
Dim intIndexCount As Integer
intIndexCount = 1
intGuess = txtGuess
Do While intGuess <> intIndex
intIndex = Rnd * 12
If intGuess < intIndex Then
MsgBox &quot;I am sorry your guess is too low&quot;, vbRetry, &quot;Too Low&quot;
intGuessCount = intGuessCount + 1
txtGuess.Text = &quot;&quot;
ElseIf intGuess > intIndex Then
MsgBox &quot;I am sorry your guess is too low&quot;, vbRetry, &quot;Too Low&quot;
intGuessCount = intGuessCount + 1
ElseIf intGuess = intIndex Then
MsgBox &quot;Your right&quot;, vbRetry, &quot;WoW&quot;
intGuessCount = intGuessCount + 1
End If
Loop
Thanks for any help you can offer

 

[Jon4747]

Hi,

You use txtGuess.Text =&quot;&quot; after the first msgbox not the other two

Jon