Area de un Cuadrado

PROCEDIMIENTO:
1.PONER LABELS, BUTTONS Y TEXT BOXS
2. EN EL BUTTON 1 DE CALCULAR PONER:
 Dim lado As Double
        lado = TextBox1.Text
        TextBox2.Text = (lado * lado)
3.EN EL BUTTON 2 DE SALIR PONER:
end