[vb6]codice che non funziona

[ciro78]

Salve a tutti.Sto seguendo la guida del sito pe comincaire...

Sub AreaCerchio(Raggio As Double)
MsgBox Raggio * Raggio * 3.14
End Sub

AreaCerchio 3
AreaCerchio 4
AreaCerchio 5

perchè non funziona???
grazie