Code:
Dim userguess As Integer
    Dim compnumber As Integer
    Dim usercount As Integer
    Dim TestNumber As String







    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Randomize()

        compnumber = Int((100 * Rnd()) + 1) '// Generate random value between 1 and 100.

        btnTry.Visible = False


    End Sub

    Private Sub btnGuess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuess.Click


        TestNumber = txtguess.Text

        If IsNumeric(TestNumber) = True Then ' check if string is a number value
            userguess = Val(TestNumber)

            If userguess > compnumber Then
                txtmessage.Text = "Go Lower"
                Me.BackColor = Color.Red

            ElseIf userguess < compnumber Then
                txtmessage.Text = "Go Higher"
                Me.BackColor = Color.Blue


            ElseIf userguess = compnumber Then
                txtmessage.Text = "CORRECT"
                Me.BackColor = Color.Yellow



            End If

        Else
            MsgBox(" You did not enter a numerical value ") ' if string value entered is a letter
        End If

        

        txtguess.Text = ""
        txtguess.Focus()
        usercount = usercount + 1
        txtcount.Text = usercount

        If userguess = compnumber And usercount < 5 Then
            MsgBox(" Either you know the secret, or you got lucky")
            btnTry.Visible = True

        ElseIf userguess = compnumber And usercount >= 5 & 6 & 7 Then
            MsgBox(" Aha, do you know the secret?")
            btnTry.Visible = True

        ElseIf userguess = compnumber And usercount >= 8 & 9 & 10 Then
            MsgBox(" Try to do better next time")
            btnTry.Visible = True

        End If

        If usercount >= 10 Then
            btnGuess.Enabled = False
            MsgBox(" You have taken too many guesses buddy")
            btnTry.Visible = True


        End If

            lstGuess.Items.Add(usercount & "                        " & userguess)


    End Sub

    Private Sub BtnHowToPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHowToPlay.Click

        MsgBox("Type a number between 0 and 100 into the box labeled Type Guess Here. The program will _generate a random number and will tell you if you've gone to high or to low, keep guessing until you are CORRECT! but you only have 10 guesses.")
    End Sub

    Private Sub btnTry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTry.Click
        btnGuess.Enabled = True
        txtguess.Text = ""
        Me.lstGuess.Text = " "
        txtmessage.Text = ""
        txtcount.Text = " "
        usercount = 0
        Randomize()
        compnumber = (Rnd() * 100)
        usercount = 0
        lstGuess.Items.Clear()
        Me.BackColor = Color.Empty
        lstGuess.Items.Add("Guess #" & "      " & "Number")
        txtguess.Focus()

    End Sub

    Private Sub Form_Load()

        Randomize()
        compnumber = (Rnd() * 100)
        usercount = 0
    End Sub
End Class
The conditions that display
Code:
   If userguess = compnumber And usercount < 5 Then
            MsgBox(" Either you know the secret, or you got lucky")
            btnTry.Visible = True

        ElseIf userguess = compnumber And usercount >= 5 & 6 & 7 Then
            MsgBox(" Aha, do you know the secret?")
            btnTry.Visible = True

        ElseIf userguess = compnumber And usercount >= 8 & 9 & 10 Then
            MsgBox(" Try to do better next time")
            btnTry.Visible = True
are not executing with my program and need help figuring out why.