Function AreaCerchio(Raggio As Double)
AreaCerchio = Raggio * Raggio * 3.14
Dim Area1 As Double
Area1 = AreaCerchio(5, 4)
MsgBox Area1
End Function

Questo codice non è corretto non fa niente se uno lo prova ad
eseguire.
Bisogna fare come ha detto Wild78