Imports System

Public Module Module1

    Public Sub Main()

        Dim wheels as integer 

        Console.WriteLine("Please Select number of wheels to determine transport")

        wheels = Console.ReadLine()

        Select Case wheels 

        Case = 2

            Console.WriteLine("It's a Bike!")

        Case = 4

            Console.WriteLine("It's a Car!")

        Case = 8

            Console.WriteLine("It's a Bus or a truck!")

        Case else

            Console.WriteLine("Such Vhicle Exist?")

           End Select

         End Sub

   End Module