Originariamente inviato da steno12
Il tuo codice è giusto, il problema è:
....digita così:
MsgBox (Area1)
mi sa proprio di no!!

coma ha detto il moderatore, è utilizzata una funzione ricorsiva, che quando arriva all' istruzione
codice:
Area1 = AreaCerchio(5, 4)
la funzione riesegue se stessa, per un loop infinito!!

basta tagliare le righe
codice:
    Dim Area1 As Double
    Area1 = AreaCerchio(5, 4)
    MsgBox Area1
ed inserirle in un command nell'evento click!!


-------------------------->>
Originariamente inviato da steno12
MsgBox (Area1)
poi se utilizzi le parentesi per gli argomenti della msgbox,(utilizzi msgbox come function) commetti un grave errore, se non utilizzi un variabile che contenga il valore di ritorno!!
codice:
RetVal=MsgBox("ma va?")
------------------------->>