Sub area()
Dim a as Float
Dim pi as Float
Dim r as Float
a = r*r*pi
MsgBox 'The Area of The Circle is: ' &a
End Sub