VB DemoSelect2

 Module DemoSelect2

    'Buka DemoSelect2.vbproj

    Sub Main()

        Dim Angka As Integer

        Angka = InputBox("Masuk satu angka: ")

        Debug.Print("Angka = " & Angka)

        Select Case Angka

            Case Is < 0

                Debug.Print("Angka negatif")

            Case 1

                Debug.Print("Angka 1")

            Case 2 To 5

                Debug.Print("Angka 2 s/d 5")

            Case 6, 8, 10

                Debug.Print("Angka 6, 8 atau 10")

            Case 12, 14, 16 To 20, 25 To 30

                Debug.Print("Angka 12, 14, 16 s/d 20, 25 s/d 30")

            Case Else

                Debug.Print("Angka Lain-lain")

        End Select

    End Sub

End Module