Aplikasi menghitung Luas segi tiga, lingkaran dan balok Pada VB.NET 2005 Console Application

Aplikasi Luas segi tiga, lingkaran dan balok Pada VB.NET 2005 Console Application :

Imports System.Console
Module Module1
    Dim pilihan As Integer
    Dim jawab As Char
    Sub Main()
menu:
        Clear()
        WriteLine("APLIKASI MENGHITUNG LUAS")
        WriteLine("************************")
        WriteLine("**        MENU       ***")
        WriteLine("**                   ***")
        WriteLine("** 1. Segitiga       ***")
        WriteLine("** 2. Lingkaran      ***")
        WriteLine("** 3. Balok          ***")
        WriteLine("** 4. Selesai        ***")
        WriteLine("**                   ***")
        WriteLine("************************")
        WriteLine()
        WriteLine("Pilihan Anda [1..4] : ")
        pilihan = ReadLine()
        Select Case (pilihan)
            Case 1 : Segitiga()
            Case 2 : Lingkaran()
            Case 3 : balok()
            Case 4 : GoTo selesai
        End Select
        WriteLine()
        Write("kembali ke Menu [Y/T] ? ")
        jawab = ReadLine()
        If UCase(jawab) = "Y" Then GoTo menu Else GoTo selesai
        ReadLine()
selesai:
        Clear()
        Write("selesai")
        ReadLine()
    End Sub
    Private Sub segitiga()
        Dim alas, tinggi, luas As Double
        Clear()
        Write("Masukan Alas   = ")
        alas = ReadLine()
        Write("Masukan Tinggi = ")
        tinggi = ReadLine()
        luas = alas / 2 * tinggi
        Write("Luas Segitiga  = " & luas)
    End Sub
    Private Sub lingkaran()
        Dim luas, phi, r As Double
        phi = 3.14
        Clear()
        Write("Masukan jari-jari  = ")
        r = ReadLine()
        luas = phi * r * r
        Write("luas lingkaran     = " & luas)
    End Sub
    Private Sub balok()
        Dim luas, T, P, L As Double
        Clear()
        Write("Masukan Tinggi  = ")
        T = ReadLine()
        Write("Masukan Panjang = ")
        P = ReadLine()
        Write("Masukan Lebar   = ")
        L = ReadLine()
        luas = 2 * (P * L + P * T + L * T)
        Write("Luas Permukaan Balok = " & luas)
    End Sub
End Module

Tampilannya :