September Morn Update

Task/FizzBuzz/VBA/fizzbuzz-1.vba

@@ -7,10 +7,10 @@ Dim i As Integer
         Tb(i) = i
         If i Mod 15 = 0 Then
             Tb(i) = "FizzBuzz"
-        ElseIf i Mod 3 = 0 Then
-            Tb(i) = "Fizz"
         ElseIf i Mod 5 = 0 Then
             Tb(i) = "Buzz"
+        ElseIf i Mod 3 = 0 Then
+            Tb(i) = "Fizz"
         End If
     Next
     Debug.Print Join(Tb, vbCrLf)

Task/FizzBuzz/VBA/fizzbuzz-2.vba

@@ -0,0 +1,10 @@
+Sub FizzBuzz()
+    Dim i As Integer
+    Dim T(1 To 99) As Variant
+    For i = 1 To 99 Step 3
+        T(i + 0) = IIf((i + 0) Mod 5 = 0, "Buzz", i)
+        T(i + 1) = IIf((i + 1) Mod 5 = 0, "Buzz", i + 1)
+        T(i + 2) = IIf((i + 2) Mod 5 = 0, "FizzBuzz", "Fizz")
+    Next i
+    Debug.Print Join(T, ", ") & ", Buzz"
+End Sub