Area de un Rectangulo

Entre en Visual Basic abrí un archivo, le coloque 3 Label, 2 TextBox y 2 Button al que dice Salir le di doble click y le coloque el comando End, y al que dice calcular le di doble click y le escrbi el comando   Dim Base As Double
        Dim Altura As Double
        Base = TextBox1.Text
        Altura = TextBox2.Text
        TextBox3.Text = (Base * Altura)