Example of Do-While use in Visual Basic.NET