Vba Scripting Do While Not Equal