Imports System, Microsoft.VisualBasic

'Javier

'11/18/21

'Speed Limit

Public Module Module1

    Public Sub Main()

        Dim speed As Integer

        Dim message As String

        Console.WriteLine("Enter Speed: ")

        speed = Console.ReadLine()

        Select Case speed

            Case 30 

            message = "You are Fine"

        Case 28,29,31,32

            message = "You are close to the Speed Limit"

        Case 33 to 35

            message = "Possibly a Ticket"

        Case < 28

            message = "Speed up!" 

        Case Else 

            message = "You want cops!"

        End Select

        Console.WriteLine(message)  

    End Sub

End Module