Salve,qualcuno saprebbe dirmi perchè la segunete routien non funziona?

dovrebbe visualizzare una msgbox con riportato l'area del cerchio in base al valore del raggio 5,3

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

quando lo mando in esecuzione si vede il form vuoto ma nessun msgbox,
ho notato ceh msgbox funziona solo qundo + inserityo nella procedura form, ma se provo a spostare l'intero codice al suo interno

mi da errore ebd sub viene trasformato in end function



ma la proprietà function mi sta facendo impazzire sub form non l'accetta fuori da questa ottengo un form vuota xchè msgbox
da quanto ho visto funziona solo all'interno della routine sub form

Help me qazaz Function,msgbox, sub form litigano Function,msgbox, sub form litigano