Option Explicit

Public Sub test()
    Const B As Long = 0
    Dim C As Long
    Const A As Long = 1

    If B > 0 Then
        For C = A To A + B
            Debug.Print 1
        Next
    End If

End Sub

Public Sub test2()
    Const B As Long = 0
    Const A As Long = 1
    Dim C As Long
    For C = A To A + B
        Debug.Print 1
    Next
End Sub