None of my If statements are executing.

[DataMiser]

This would be better but still would not work as expected

        Dim Number As Integer
        Dim Display As String        
        Display = lblDisplay.Text

        If IsNumeric(txtNumber.Text) = True Then
            Number = Val(txtNumber.Text)
            If Number < 1 Or Number > 100 Then
                If Number > 100 Then
                    Display = " The Number You entered is too high"
                ElseIf Number < 1 Then
                    Display = " The Number You entered is too low"
                ElseIf Number >= 1 And Number <= 100 Then
                    Process1.Enabled = False
                End If
            Else
                Display = " The number you entered is not between 1 and 100"
            End If
        Else
            Display = " You did not enter a numerical value "
        End If