富豪的プログラミング

FizzBizz　のEXCEL VBA　でコメントにつけた下記のプログラムに、非効率という指摘を受けたのだけど、
これって、富豪的プログラミングなんだよね。
昔の愛読書であったbitで読んだ気がしたので検索したら、やはり bit 29(1), 36-37, 1997　だったよ。

Function FizzBuzz(Optional N = 100, Optional S = "")
    ReDim S(1 To N, 1 To 1)
    For I = 1 To N
        S(I, 1) = I
        If I Mod 3 = 0 Then S(I, 1) = "Fizz"
        If I Mod 5 = 0 Then S(I, 1) = "Buzz"
        If I Mod 15 = 0 Then S(I, 1) = "FizzBuzz"
    Next I
    FizzBuzz = S
End Function