Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Enter a car model between 100 and 999")

        Dim model As Integer = Console.ReadLine()

        Select Case model

            Case 119, 179, 189 To 195, 221, 780

                Console.WriteLine("Your car is defective, please contact the dealer to fix.")

            Case > 999, < 100

                Console.WriteLine("Invalid input")

            Case Else

                Console.WriteLine("Your car is fine.")

        End Select

    End Sub

End Module

​