Imports System

Public Module Module1

    Public Sub Main()

        Dim category as string = ""

        Dim message as string = ""

        Console.writeline("Enter storm Category")

        Category = Console.ReadLine()

        If Category = 0 Then

            message = "Tropical storm: Gonna be ok"

        Else if category = "1" then

                message = "Category 1 hurricane, stay indoors"

            Else if category = "2" then

                    message = "Category 2 hurricane, prepare and stay indoors"

                Else if category = "3" then

                        message = "Category 3 hurricane, prepare food/water and stay underground or in a safe area"

                    Else if category = "4" then

                            message = "Category 4 hurricane evacuate from windows, prepare food/water, stay in a safe area"

                        Else if category = "5" then

                                message = "Category 5 hurricane, Evacuate immediantly and prepare for extreme danger"

                            End iF

        Console.writeline(message)

    End Sub

End Module