Tｒｙ
    ループ
Catch ex as Exception
    Console.WriteLine(ex.ToString)
End Try

としてデバッグ実行すれば例外が発生した行が分かるので
その辺をよくみるとよいと思います。