While Loop Vba Code For Spellnumber