エクセルvbaの円周率

Message#1 2014年12月26日(金)09時37分
From: 後ろ指

エクセルVBAのマクロについてです。
円周率を球の体積を用いてモンテカルロ法によって求めるプログラムを教えていただきたいです。
ヒントとして、球の体積ではなく、円の面積から求めるプログラムは教えてもらったのですが、
無知なものでさっぱりわかりませんでした。
ご教授願いたく質問させていただきました。
以下に書きますのがヒントのものです。

Sub 円周率()
Dim xx As Double
Dim yy As Double
Dim rr As Double
Dim nn As Long
Dim ii As Long
Dim nmax As Long
Dim ens As Double
nmax = InputBox("最大試行回数")
MsgBox ("saidai" & nmax)
ii = 0
For nn = 1 To nmax
xx = Rnd(1)
yy = Rnd(2)
rr = xx * xx + yy * yy
If Sqr(rr) <= 1# Then
ii = ii + 1
Else: ii = ii
End If
Next nn
MsgBox ("current ii" & ii)
MsgBox ("nmax" & nmax)
ens = 4# * CDbl(ii) / CDbl(nmax)
MsgBox ("円周率" & ens)
End Sub

何卒よろしくお願いいたします。

補足
ヒントのプログラムの内容を少しいじって体積から円周率を求めよ、とのことでした。
言葉足らずで申し訳ございません。