vb number of guesses and stats in guessing game

Hi,i am working on a guessing game in vb. I need to show the number of guesses and also the win loss record. Here is the code so far.

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        Dim inputNumber As Integer
        Dim number As Integer
        Dim i As Integer
        Dim Count As Integer = 0


        Randomize()
        number = CInt(Rnd() * 25) + 1




        inputNumber = CInt(txtBoxGuess.Text)


        If inputNumber < number Then
            txtHint.Text = "please enter a higher number"
        ElseIf inputNumber > number Then
            txtHint.Text = "please enter a lower number"
        ElseIf inputNumber = number Then
            Count += 1
            LabelNumGuess.Text = "number of guesses: " + Str(Count)
            txtGuess.Text = "you win in" + Str(Count) + "Guesses"
        End If

    End Sub

Any help would be much appreciated! Thanks