Il tuo codice è giusto, il problema è:
....digita così per l'msgbox vuota:
MsgBox (Area1)

per concludere........... areacerchio non è bidimensionata (quindi l'errore.......)
riscrivila così:

Raggio = 2
AreaCerchio (Raggio)

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





link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp