Imports System

Public Module Module1

    Dim height As Decimal

    Dim weight As Decimal

    Dim bmi As Decimal

    Dim status As String

    Public Sub Main()

        Console.WriteLine("BMI calculator")

        Console.WriteLine("Please note that BMI calculations may or may")

        Console.writeLine("not represent your physique accurately")

        Console.WriteLine("Please enter your mass in kilograms")

        weight=Console.ReadLine()

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

        height=Console.ReadLine()

        bmi=weight/(height*height)

        If bmi<18 Then 

            status="underweight"

        Else If bmi <25 Then

            status="normal"

        Else if bmi <30 Then

            status="overweight"

        Else

            status="obese"

        End If

        Console.WriteLine("Your BMI is currently " & bmi & "kg/m3")

        Console.WriteLine("You are currently " & status)

    End Sub

End Module