Pathetic Programming

[Merri]

Code that would be clever but...

Function CountArrayItems(MyArray)
    On Error Resume Next
    Do
        CountArrayItems = CountArrayItems + IIf(True, 1, MyArray(CountArrayItems))
    Loop Until Err
End Function

... just fails.