select case is not working

[lezawang]

Hi
Why when I enter 66 as a number, this code print "Else"?
it does not go the first case? any idea why? I used F8 but again jump to the last case.
Thank you very much.

Sub test3()
    Dim x As Integer
    x = InputBox("enter number")
    Select Case x
        Case x > 50
            MsgBox ">50"
        Case x < 30
            MsgBox "<30"
        Case Else
            MsgBox "else"
    End Select
End Sub

 

[Fluff]

Either use

Sub test3()
    Dim x As Integer
    x = InputBox("enter number")
    Select Case True
        Case x > 50
            MsgBox ">50"
        Case x < 30
            MsgBox "<30"
        Case Else
            MsgBox "else"
    End Select
End Sub

or

Sub test3()
    Dim x As Integer
    x = InputBox("enter number")
    Select Case x
        Case Is > 50
            MsgBox ">50"
        Case Is < 30
            MsgBox "<30"
        Case Else
            MsgBox "else"
    End Select
End Sub