вычислить объем цилиндра с радиусом основания R и H в информатике в Excel в VBA(visual basic)?

Процедура
Sub V()
Dim r As Double
Dim h As Double
Dim v As Double
r = 12
h = 10
v = WorksheetFunction.Pi() * (r ^ 2) * h
MsgBox v
End Sub

Функция
Function dV(r as Double, h as Double) as Double
dv = WorksheetFunction.Pi() * (r ^ 2) * h
End Function