Imports System

Public Module Module1

    Public Sub Main()

        Test(0)

        Test(1)

        Test(2)

        Test(3)

        Test(-1)

        Test(-2)

    End Sub

    private sub Test(ByVal i as Int32)

        select case i 

        case 0 

            console.writeline("0")

        case 1

            console.writeline("1!")

            case is > 1 

            console.writeline("greater than 1")

        case else

            console.writeline("something else")

        end select

    end sub

End Module