Sub FizzBuzz()
    '変数の定義
    Dim i As Integer

	'繰り返し処理
    For i = 1 To 100
		'分岐処理
	    If i Mod 15 = 0 Then
	        Debug.Print "FizzBuzz"  'イミディエイト画面に表示
	    ElseIf i Mod 5 = 0 Then
	        Debug.Print "Fizz"
	    ElseIf i Mod 3 = 0 Then
	        Debug.Print ("Buzz")  '()があっても無くても問題なし
	    Else
			
	    End If
    Next i
End Sub

'https://www.excelspeedup.com/vbaarray/

Option Explicit

Sub ArraySample01()
    'モジュール冒頭のOption Baseの指定がない場合には、下限は「0」になります
    Dim Data(3) As String

    'Option Baseの指定がない場合に「Dim Data(3)」と変数宣言をすると下記のように4つ分の領域が確保されます。
    Data(0) = "配列0"
    Data(1) = "配列1"
    Data(2) = "配列2"
    Data(3) = "配列3"
    'Data(4) = "配列4"  `配列外になる
     Debug.Print Data(0)
     Debug.Print Data(1)
     Debug.Print Data(2)
     Debug.Print Data(3)
End Sub


Sub ArraySample02()
	'Dim 配列名([下限] to [上限]) 
    Dim Data(1 to 3) As String

    'Data(0) = "配列0"  `配列外になる
    Data(1) = "配列1"
    Data(2) = "配列2"
    Data(3) = "配列3"
    'Data(4) = "配列4"  `配列外になる

     Debug.Print Data(1)
     Debug.Print Data(2)
     Debug.Print Data(3)
End Sub