Excel VBA число как текст = нечисло