Операция суммирования чисел в текстовых полях

[yelis]

Доброго времени всем!
Прошу помощи в простом, казалось бы, вопросе.
На форме есть три тестовых поля: Text1, Text2, Text3 и кнопка. Код кнопки:
If Val(Text1.Text) <> Val(Text2.Text) * Val(Text3.Text) Then MsgBox "NO" Else MsgBox "OK"

1. Если вводить выражение: 7,7=7*1,1 (разделяя целую и дробную часть чисел запятыми), то выдает сообщение "ОК". Если ввести то же выражение, но с разделителем - точкой, то выдает "NO".
2. Если далее в те же текстовые поля ввести выражение: 8,4=7*1,2 (разделитель - запятая), то выдает "NO". А если использовать точку, то выдает "ОК".
В чем дело? Подскажите, пожалуйста. Я себе уже голову сломал.
Спасибо!!!

[yelis]

Поборол заразу!
Вдруг кому-то понадобится. Сравнивать надо не в числовом, а в строковом формате. Вот код для кнопки:

Код:

If Text1.Text <> Trim(Str(Val(Text2.Text) * Val(Text3.Text))) Then MsgBox "NO" Else MsgBox "OK"

P.S. В качестве разделителя - только точка.

[Алексей++]

yelis, а какая цель сравнения, я не совсем понял. Если числа - то в числовом формате надо сравнивать.

[HandKot]

В чем дело? Подскажите, пожалуйста. Я себе уже голову сломал.

Дело в разделителях, которые используюися в Excel

кстати, помоему, Ваше решение тоже не идеально и возможны ошибки

yelis, а какая цель сравнения, я не совсем понял. Если числа - то в числовом формате надо сравнивать.

вероятно для проверки правильности ввода в текстбоксы

[yelis]

Сравнение нужно для проверки корректности ввода числовых данных, которые используются в дальнейшем при работе программы.

[viter.alex]

По-моему проще фильтровать ввод на предмет цифр. Метод не универсальный и не идеальный. Если нужно контролировать, чтобы произведение соответствовало, то нужно числа и сравнивать. Запретить ввод точки или запятой.