Imports System

Public Module Module1

    Public Sub Main()

        Dim Level as string = ""

        Dim Message as string = ""

        console.WriteLine("What is The Hurricane Level")

        Level = console.ReadLine()

        if Level = "0" then

            Message = "Tropical Storm, You Good"

        Elseif Level = "1" then

            Message = "C1 Hurricane, be careful it might get windy"

        Elseif Level = "2" then

            Message = "C2 Hurricane, Get to a Decent built house"

        Elseif Level = "3" then

            Message = "C3 Hurricane, Can cause major damage to well built homes prepare yourselves"

        Elseif Level = "4" then

            Message = "C4 Hurricane, 130 mph winds get to shelter immediatly"

        Elseif Level = "5" then

            Message = "C5 Hurricane, extremely severe weather prepare houses for massiver damge get to shelter expect power outages"

        Else Message = "Error Invalid Storm Level"

        End if

        console.WriteLine(Message)

    End Sub

End Module