When you try to iterate over an empty array in VBA like this, you will get a runtime error (index out of bounds):
-
Sub ArrayTest()
-
-
Dim testarray() As Integer
-
Dim i As Integer
-
-
For i = LBound(testarray) To UBound(testarray) ‘ <– error
-
Debug.Print testarray(i)
-
Next i
-
-
End Sub
Even if you check the return value of LBounds like this, it results in the same error:
-
Sub ArrayTest()
-
-
Dim testarray() As Integer
-
Dim i As Integer
-
-
If LBound(testarray) > 1 Then ‘ <– error
-
For i = LBound(testarray) To UBound(testarray)
-
Debug.Print testarray(i)
-
Next i
-
End If
-
-
End Sub
However, to get rid of the error and to iterate over a possibly empty array, the following code works:
-
Sub ArrayTest()
-
-
Dim testarray() As Integer
-
Dim i As Integer
-
-
On Error Resume Next
-
If LBound(testarray) > 1 Then
-
If Err.Number = 0 Then
-
For i = LBound(testarray) To UBound(testarray)
-
Debug.Print testarray(i)
-
Next i
-
End If
-
End If
-
-
End Sub
Visual Basic magic 
