[vb.net] VB.NET - How to move to next item a For Each Loop?