Area del Rectangulo VB Aplicación de Consola

Bueno este es un ejercicio más de los tantos que hay en este sitio, en esta oportunidad sera el "Area del Rectangulo"
1. Creamos un proyecto elegimos Aplicacion de Consola.

2. Luego añadimos este codigo dentro del Sub Main().

Module Module1

    Sub Main()
        Console.WriteLine("Ingrese base del rectangulo:")
        Dim ba As Single = Single.Parse(Console.ReadLine())
        Console.Write("Ingrese altura del rectangulo:")
        Dim al As Single = Single.Parse(Console.ReadLine())

        While ba <= 0 OrElse al <= 0
            Console.WriteLine("Ingrese base mayor a cero del rectangulo:")
            ba = Single.Parse(Console.ReadLine())
            Console.WriteLine("Ingrese altura mayor a cero del rectangulo:")
            al = Single.Parse(Console.ReadLine())

            Console.Clear()
        End While


        Console.Write("La superficie del rectangulo es {0}", (ba * al))
        Console.ReadKey()
    End Sub

End Module