Imports System

Public Module Module1

    Public Sub Main()

        Dim windSpeed As Integer

        Dim category As String

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

        windSpeed = Console.ReadLine()

        Select Case windSpeed

            Case 74 to 95

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

            Case 96 to 110

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

            Case 111 to 130

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

            Case 131 to 155

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

            Case Is > 155

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

        End Select

    End Sub

End Module