Se non trova niente ti si blocca perché va in errore, dato che, come giustamente ha evidenziato oregon, parti da 0 e devi fermarti a count-1

Strano che VB.net non ti avvisi dell' errore non gestito...
.