This code allows the user to find the area of circle by clicking a command button and then typing in the radius of the circle. It is very helpful to anyone working on a calculator project. I am also coming out with area of triangle and square.
Original Author: Brady Botkin
Code
' Step 1. Place a command button in your form and name it Command1 and make the
'caption Area Of A Circle.
' Step 2. Copy this code into the form...
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