Vba Excel Do While Loop Example C