hola
bueno hacer todo el ejercicio no es la finalidad del foro, sino la de bridar una ayuda, por eso te dare algunos tips
- para el tema del random podrias usar la clase con ese mismo nombre
para obtener el valor de 4 cifras en un rango usa el metodo Next()
Dim rnd As New Random()
Dim valorrandom As Integer = rnd.Next(0, 1000)
con esto obtendrias el valro random ,que podrias suar para comparar con el ingresado por el usuario
Dim valoringresado As integer
Int32.TryParse(txtNumero.Text, valoringresado)
If valorrandom = valoringresado Then
lblMensaje.Text = "coincide"
ElseIf valorrandom > valoringresado Then
lblMensaje.Text = "se paso"
ElseIf valorrandom < valoringresado Then
lblMensaje.Text = "aun falta"
End If
saludos
Leandro Tuttini
Blog
Buenos Aires
Argentina