Imports System

​

Public Module Module1

    Public Sub Main()

    Dim e as integer 

    Console.WriteLine("Introduzca el numero")

    e = console.ReadLine()

    if e>180 then console.Write("su estatura esta sobre el promedio")

    if e>=150 and e <= 180 then console.Write("su estatura esta en el promedio")

    if e>150 then console.Write("usted esta debajo del promedio")

    End Sub

End Module              

​