Area Of Circle Calculator

Private Sub Command1_Click()


Dim Radius
Radius = InputBox("Type In The Radius", "Radius")
Dim Area
Area = 3.14 * (Radius * Radius)
MsgBox Area, vbDefaultButton1, "Answer"

Dim Answer


End Sub