Imports System

Public Module Module1

    Public Sub Main()

        dim weight as double

        dim height as double

        dim BMI as double

        Console.WriteLine("BMI calculator!")

        Console.WriteLine("Enter your weight")

        weight = Console.ReadLine()

        Console.WriteLine("Enter your height")

        height = Console.ReadLine()

        Console.WriteLine("Your BMI is:")

        Console.WriteLine(weight / weight / height * 703)

        if BMI >0 and BMI < 18.5 then

            Console.WriteLine("You are underweight")

        end if

    End Sub

End Module