Word Vba Do While Example Visual Basic