it should also display in a separate box how many times they guessed.
Public Class Form1
Private Sub btnGuess_Click(sender As Object, e As EventArgs) Handles btnGuess.Click
Dim Random As New Random
Dim Number As Integer
Dim guess As Integer
Dim Count As Integer
Count = Count.ToString("d2")
If Not Integer.TryParse(txtGuess.Text, guess) Then
txtNumberIs.Text = "Number must be an integer between 0 and 100."
txtGuess.Clear()
End If
Number = Random.Next(100) + 1
Do Until guess = Number
If guess > Number Then
txtNumberIs.Text = "Too high, Try again."
txtGuess.Clear()
ElseIf guess < Number Then
txtNumberIs.Text = "Too low, Try again."
txtGuess.Clear()
ElseIf guess = Number Then
txtNumberIs.Text = "That is Coooorrrect."
txtYouGuessed.Text = Count & " times."
End If
Loop
End Sub
End Class