Imports System

Public Module Module1

    Public Sub Main()

        Dim number as Integer

        Dim result as String

        Console.Write("Enter the model number: ")

        number = Console.ReadLine()

        Select Case number

            Case 119, 179, 184, 221

                result = "Defective: (Broken Horn). Please have it fixed."

            Case 189 to 195

                result = "Defective: (No Break Pedal). Please have it fixed."

            Case > 870

                result = "Defective: (Missing Wheel). Please have it fixed."

            Case 1 to 118

                result = "Your car is not defected."

            Case 120 to 178

                result = "Your car is not defected."

            Case 180 to 183

                result = "Your car is not defected."

            Case 185 to 188

                result = "Your car is not defected."

            Case 196 to 220

                result = "Your car is not defected."

            Case 222 to 870

                result = "Your car is not defected."

        End Select

        Console.writeline(result)

    End Sub

End Module