Initial data commit

Task/FizzBuzz/VBA/fizzbuzz-1.vba

@@ -0,0 +1,19 @@
+Option Explicit
+
+Sub FizzBuzz()
+Dim Tb(1 To 100) As Variant
+Dim i As Integer
+    For i = 1 To 100
+        'Tb(i) = i ' move to Else
+        If i Mod 15 = 0 Then
+            Tb(i) = "FizzBuzz"
+        ElseIf i Mod 5 = 0 Then
+            Tb(i) = "Buzz"
+        ElseIf i Mod 3 = 0 Then
+            Tb(i) = "Fizz"
+        Else
+            Tb(i) = i
+        End If
+    Next
+    Debug.Print Join(Tb, vbCrLf)
+End Sub

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