Visual Basic - Ayuda con programa adivinador! VisualBasic 2012

Mi profesor me ha pedido "Hacer un juego que permita adivinar un numero generado al azar entre 1 y 50 por la computadora. El jugador deberá de tener 5 intentos para adivinar dicho numero, al agostar sus intentos mostrar un mensaje con MsgBox de "Seguir intentando" y finalizar el programa. En caso de ganar indicarlo con un mensaje con MsgBox y mostrar cuantos intentos le quedaban."


He podido hacer el codigo hasta la parte de adivinar el numero (use Math.Truncate(Rnd(100) * 50 + 1), cuando acierto el numero (lo puse con una label en una esquina de la pantalla, si no pues nunca lo adivino) me sale todo correcto: el msgBox, los intentos restantes y se cierra el programa.

Mi problema es al fallar, en el primer intento fallido me pone el MsgBox y se cierra, pero yo no lo quiero al primer intento, quiero que salga eso al quinto y mi profesor se rehúsa a ayudarme, dice que tengo que "pensar analíticamente". Agradecería que me pudiesen ayudar con esto!

Saludos cordiales.

Public Class Form1
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
Label2.Text = Math.Truncate(Rnd(100) * 50 + 1)
End Sub

Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles .TextBox1MouseClick
Dim contador As Integer
For contador = 4 To 0 Step -1

If TextBox1.Text = Label2.Text Then

MsgBox("Felicidades, has adivinado el numero, tenias " & contador & " intento(s) restante(s)", MsgBoxStyle.Information, "Ganaste")
End
End If

Next contador
If contador < 1 Then
MsgBox("Sigue intentando", MsgBoxStyle.Critical, "Fallaste")
End
End If
End Sub
End Class




(Doble click al Label1 para generar Label2, que es el numero que esta en la esquina de la pantalla)
(Doble click al TextBox1 para dar tu respuesta)

No conozco la versión con la que trabajas y puede que tenga algún error de sintaxis.

La idea básicamente es esta, fijate el la variable contador:


Saludos.
\\//_

Ponle Un Boton y mira este codigo

si tienes teanviewer enviame el id para poder conectarme y guiarte en tu problema