attached image

Module VBModule
Sub Main()
Dim mass As Double = nothing
Console.WriteLine("Please enter body mass")
mass = Console.ReadLine()
Dim weight As Double = nothing
weight = mass * 9.8
Console.WriteLine(weight)
if (weight >1000) then
...