Visual Basic Guessing Game Code Problem?

My assignment is to create a game that you type your guess from 1 to 100 and computer tells you if you get the number,or too high or guess was too low. I made the game and everything words, except, the computer only give you 1 chance to correctly guess the number and then changes the number. I know I need a loop in their Help Me This is the Code I have so far

Private Sub Command1_Click()

Dim intNum As Integer

Randomize

intNum = (Rnd * 100)

If txtUser = intNum Then

MsgBox "You Did It. The number was " & intNum

ElseIf txtUser > intNum Then

MsgBox "Your Number is high " & intNum

ElseIf txtUser < intNum Then

MsgBox "Your Number is low " & intNum

End If

End Sub

Dim attemptNum As Integer

Private Sub Command1_Click()

If attemptNum < 10 Then

If txtUser.Text = intNum Then

MsgBox "You Did It. The number was " & intNum

ElseIf txtUser > intNum Then

MsgBox "Your Number is high " & intNum

ElseIf txtUser < intNum Then

MsgBox "Your Number is low " & intNum

End If

End If

attemptNum = attemptNum 1

End Sub

Private Sub Form_Load()

Randomize

intNum = (Rnd * 100)

End Sub

Hope this helps. The random number has to be worked out when the program starts, because before you were having a different number worked out when you pressed the button.