Imports System

Public Module Module1

    Public Sub Main()

        Dim Wheels as integer

        Console.Writeline("How many wheels?")

        Wheels = Console.ReadLine()

        Select case Wheels

        Case =2

            Console.WriteLine("Bicycle")

        Case =4

            Console.WriteLine("Car")

        Case =8

            Console.WriteLine("Truck")

        Case else

            Console.WriteLine("Unknown")

        End Select

    End Sub

End Module