Functions in VBA

Option Compare Database


Function MultiplyPi(meter As Double)

MultiplyPi = meter * 3.15

End Function


Sub GetCirc()

Dim userValue As Double

userValue = InputBox("Enter your number")

MsgBox (MultiplyPi(userValue))

End Sub