Vb Net For Each Over Sequence