Imports System

Public Module Module1

    Public Sub Main()

            Dim dblNum as double = 0

    Select Case dblNum

        Case 0 to 2 'Case is >=2

        Case is > 8

        Case is > 5

        Case is > 2 

    End Select

​

    End Sub

End Module