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