比にほぼ等しくなっているはずだと考えます。4(Nc/N)と計算できるはずです。大きくするほど近似の精度は良くなります。Subマクロを実行するとイミディエイトウィンドウに3.14356856431436というような円周率の近似値が表示されます。乱数を使っているので、実行する度に違った値が表示されます。無作為な点の発生回数なので、For...Nextステートメントのカウンタ変数の上限値となっています。してありますが、より高い精度を求めるのであれば、この上限値を書き換えてください。