Imports System

Public Module Module1

    Public Sub Main()

        Dim Inches, feet as integer

        Dim Metres as double

        Console.WriteLine("Height converter program")

        Console.WriteLine("")

        Console.WriteLine("Please enter how tall you are in FEET")

        Feet = console.ReadLine()

        Console.WriteLine("Please enter how tall you are in INCHES")

        Inches = console.ReadLine()

        metres = ((Feet * 12) + Inches)* 2.54

        Console.WriteLine("Your Hieght in Metres is {0}", metres)

    End Sub

End Module