Problema de programación en Vb para calcular el área de un círculo

El subcomando privado1_Click()' define un procedimiento de evento denominado Command1_Click().

Const PI As Single = 3.14 'Indica que PI en el programa es una constante.

Dim r As Single, s As Single ' significa que las variables r y s en el programa son números reales de precisión simple.

R = InputBox("r= ","Radio de entrada")'Ingrese el valor de r.

S = PI * r * r 'Calcula el valor de la expresión PI * r * r y asígnalo a s.

C= 2*pi*r 'Calcula el valor de la expresión 2*pi*r y asígnalo a c.

Imprimir "El área del círculo s = "; el valor de s se envía al formulario actual.

Imprimir "circunferencia c=";c

Fin del proceso

Fin del conector