Vba Excel Do While Loop Example Vbscript