get next object in list that is red

I get an error when I try to run the demo and the example program

attempt to access null object
on this line:
Return (_link._value<>_link) And _howMany