Imports System

Public Module Module1

    Public Sub Main()

        Dim weight As Decimal

        Console.WriteLine("Please enter your weight in Kilograms")

        weight = Console.ReadLine()

        Dim height As Decimal

        Console.WriteLine("Please enter your height in meters")

        height = Console.ReadLine()

        Dim BMI As Decimal

        BMI = weight / (height^2)

        if BMI <18.5 Then

            Console.WriteLine("You are underweight")

        elseif BMI >18.5 Then

            Console.WriteLine("You are healthy")

        elseif BMI 25 - 30 Then

            Console.WriteLine("You are overweight")

        else

            Console.WriteLine("You are obease")

        End If 

    End Sub

End Module