Imports System

Public Module Module1

    Public Sub Main()

        Dim wheels as integer

        Console.WriteLine("Enter number of wheels: ")

        wheels = Console.ReadLine()

        Select Case wheels

            Case = 2 

            Console.WriteLine("Bicycle")

        Case = 4

            Console.WriteLine("Car")

​

        Case = 8

            Console.WriteLine("Bus")

        Case > 8

            Console.WriteLine("Truck")

        End Select

    End Sub

End Module