Notice: Функция _load_textdomain_just_in_time вызвана неправильно. Загрузка перевода для домена kirki была запущена слишком рано. Обычно это индикатор того, что какой-то код в плагине или теме запускается слишком рано. Переводы должны загружаться при выполнении действия init или позже. Дополнительную информацию можно найти на странице «Отладка в WordPress». (Это сообщение было добавлено в версии 6.7.0.) in /home/hwor/blagovest.org.ru/wp-includes/functions.php on line 6114

Notice: Функция _load_textdomain_just_in_time вызвана неправильно. Загрузка перевода для домена shamrock была запущена слишком рано. Обычно это индикатор того, что какой-то код в плагине или теме запускается слишком рано. Переводы должны загружаться при выполнении действия init или позже. Дополнительную информацию можно найти на странице «Отладка в WordPress». (Это сообщение было добавлено в версии 6.7.0.) in /home/hwor/blagovest.org.ru/wp-includes/functions.php on line 6114

Warning: Cannot modify header information - headers already sent by (output started at /home/hwor/blagovest.org.ru/wp-includes/functions.php:6114) in /home/hwor/blagovest.org.ru/wp-includes/feed-rss2-comments.php on line 8
https://blagovest.org.ru/?p=93839 Задайте вопрос и получите ответ Sat, 12 Dec 2015 09:27:26 +0000 hourly 1 https://wordpress.org/?v=6.7.2 https://blagovest.org.ru/?p=93839#comment-5762 Sat, 12 Dec 2015 09:27:26 +0000 http://blagovest.org.ru/?p=93839#comment-5762 к сожалению, InputBox всегда возвращает строку 🙂
можно проверять введенные данные ф-циями IsNumeric, либо Val, во второй может быть засада — например, если в региональных установках точка будет как разделить целой и дробной частей, то значение 555,99 просто молча обрежется  до 555. А также Val("строка") вернет ноль.
Поэтому с IsNumeric работать предпочтительнее.
То есть делать что-то такое:
Dim ss
ss = "xx"
While Not IsNumeric(ss)
   ss = InputBox("Введите число", "Ввод данных") ‘ Не выпускаем пользователя, пока не введет число
Wend

]]>