Imports System

Public Module Module1

    Public Sub Main()

        Dim Category as string = ""

        Dim Message as string = ""

        Console.WriteLine("What level hurricane is it?")

        Category = Console.ReadLine()

        if Category = 0 then 

            Message = "Ok that's just normal tropical storm man chill"

            elseif Category = 1 then

            Message = "Category 1: Oof windy"

        elseif  Category = 2 then

            Message = "Category 2: Now that's a spicccy meatball"

        elseif Category = 3 then

            Message = "Category 3: Rip umbrella"

        elseif Category = 4 then

            Message = "Category 4: Rip tree"

        elseif Category = 5 then

            Message = "Category 5: Time to be Mary Poppins"

        else

            Message = "So guys we did it, we reached a quarter of a million subscribers-"

        End if  

            Console.WriteLine(Message)

    End Sub

End Module