Imports System

Public Module Module1

    Public Sub Main()

        dim height, weight , BMI as string

        Console.WriteLine("please enter your height in metres")

        height = console.ReadLine()

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

        weight = console.ReadLine()

        BMI= weight/(height*height)

        select case BMI

        case is < 18.5

            console.WriteLine("You Are Underweight Person")

        case is >=30

            console.WriteLine("You Are Overweight")

        case is >= 25

            console.WriteLine("You Are Slighty Overweight")

        case is >=18.5

            console.WriteLine("You Are Healthy Person")

        end select

        console.WriteLine(BMI)

    End Sub

End Module