Val() и формат числа

[VictorM]

Здравствуйте, Уважаемые.
Столкнулся вот с такой штукой.
В коде есть строки типа:

tb_НакладнаяДолгНовыйДоллар = Format(НакладнаяДолгНовыйДоллар, "#,##0")
iN = Val(tb_НакладнаяДолгНовыйДоллар.Value)

Ведутся расчеты на форме, вроде все нормально, все работает.
Но, оказалаось, что на другом компе выдавалась ошибка, форма не считала. Долго не мог понять (по телефону) что от меня хотят, пока не поехал и сам не убедился.
Оказалось что значение "1 500" Val выдавал 1. И такое на двух компах.
Смотрел региональные настройки, ничего не нашел, все также как и на моем компе.
Вышел из положения изменив формат числа т.е.

tb_НакладнаяДолгНовыйДоллар = Format(НакладнаяДолгНовыйДоллар, "0")

Все заработало, но "гвоздик" остался)).
Может кто сталкивался с таким, подскажите, чтобы знать на дальнейшее.
Спасибо.

[motorway]

По-видимому, в данном случае функция останавливается, т.к. находит в Value пробел с ASCII кодом 160.

"Val stops converting at the first character that cannot be interpreted as a numeric digit, numeric modifier, numeric punctuation, or white space."

[VictorM]

Да, так оно и есть.
Но вопрос в том, что на моем-то компе она работает!! Именно с таким форматом числа.
Вот и хочется разобраться, чтобы не вляпаться в дальнейшем.
Хотя, конечно, если разобраться не получится, просто остановится на формате числа "0", чтобы уже точно на всех компах работало.

[nerv]

Не знаю, поможет ли это. Цитата из справки:

Функция Val(Value) служит для преобразования аргумента в числовой тип данных. Функция Val прекращает чтение строки на первом символе, который она не может распознать в качестве части числа. Символы, которые часто рассматриваются в качестве частей числовых значений, типа знака доллара и запятых, не распознаются. Однако, эта функция распознает префикс основания &O (для восьмеричных) и &H (для шестнадцатеричных значений). Пробелы, символы табуляции и символы перевода строк удаляются из значения параметра. Функция Val распознает в качестве разделителя целой и дробной части только точку (.). Если используются другие разделители целой и дробной частей (например в национальных версиях приложений), следует применять для преобразования строки в число функцию CDbl.

Внимание! У функции имеется баг! Например, при вызове функции Val("7.1%") генерируется ошибка Type mismatch. Хотя другие примеры работают нормально: Val("7%") возвращает 7, Val("7.%") возвращает 7, Val("7.0%") возвращает 7

А, вообще, на мой взгляд она какая-то левая, да и медленная к тому же.

[VictorM]

Да, спасибо. Это я читал.
Получается что мой случай т.е.
на одном компе Val("1 500") возвращает 1500
а на другом Val("1 500") возвращает 1
можно, видимо, тоже считать багом этой функции, связанной с какими-то настройками системы.

[Hugo121]

Нда, не нравится у меня ей ChrW(160):

Sub tt()
Dim x
x = Val("1" & ChrW(160) & "500")
MsgBox x
x = Val("1" & ChrW(32) & "500")
MsgBox x
End Sub

[VictorM]

Нда, не нравится у меня ей ChrW(160):

Аналогично.
а с ChrW(32) все нормально выводит.
Похоже, дело в кодировках.

[Hugo121]

Но ведь можно перед преобразованием на всякий случай попробовать replace.