Imports System

Public Module Module1

    Public Sub Main()

        Dim modelNumber As Integer                  'Declaring variables'

        Dim message As String

        Console.WriteLine("Enter model number: ")       'input'

        modelNumber=Console.ReadLine()

        Select Case modelNumber                                 'Calculation'

        Case 119,179,184,221

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

        Case 189 to 195 

            message="Defective:(Brake Pedal). Please have it fixed."

        Case Is >870

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

        Case Else 

            message="Your car is not defective."

        End Select

        Console.WriteLine(message)                  'output'

    End Sub

End Module