Imports System

Public Module Module1

    Public Sub Main()

        Dim windSpeed As Single

        Dim message As String                                                                   

        Console.WriteLine("Enter the wind speed (in mph): ")

        windSpeed = Console.ReadLine()                                                          

        Select Case windSpeed 

        Case 74 to 95 

            message = "Category 1: 75-95 mph or 64-82 kt or 119-153 km/hr"

        Case 96 to 110

            message = "Category 2: 96-110 mph or 83-95 kt or 154-177 km/hr"

        Case 111- 130

            message = "Category 3: 111-130 mph or 96-113 kt or 178-209 km/hr"                   

        Case 131 to 155

            message = "Category 4: 131-155 mph or 114-135 kt or 210-249 km/hr"

        Case is > 155

            message = "Category 5: greater than 155 mph or 135 kt or 249 km/hr"

        Case Else

            message = "It is not a Hurrican"

        End Select

        Console.WriteLine(message)                                                               

    End Sub

End Module