Imports System

'Gavin Rowe-Morris 12-14-21'                

Public Module Module1

    Public Sub Main()

        Dim modelNumber As Integer

        Dim message As String

            Select Case modelNumber

        Case 119, 179, 184, 221

            message = "Broken Horn"

        Case 189 To 195

            message = "No Brake Pedal"

        Case Is > 870

            message = "Missing Wheel"

        End Select

    End Sub

End Module