Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim weight, height, metric, imperial as string

        console.writeline("Imperial (Pounds and feet) or metric (Kilograms and meteres) for height and weight?")

        imperial = console.ReadLine()

        select case imperial

            case = imperial

                console.WriteLine("Weight?")

                weight = console.ReadLine()

                select case weight

                    case = weight

                        console.WriteLine("Height?")

                        height = console.ReadLine()

                        select case height

                            case = height

                        end select

​

                end select

​

        end select

    End Sub

End Module

​