i = UBound(arr)
For i = 1 to i
Next

みたいにリサイクルしちゃう事はよくある。