For Loop using VB.NET

Published --