Producto terminado de programación Vb

Label1.caption= "radio del círculo"

Evento Command1_Click:

dim r es doble, s es doble, v es doble

r=val(text1)

s=3.14*r*r

v=(4/3)*3.14*r^3

Msgbox "El área del círculo es:"; vbcrlf amp "El volumen de la esfera es";