Проблема с преобразованием типов - VB

Формулировка задачи:

Подскажите как мне избавиться от ошибки type mismatch при преобразовании строки 654.45 в тип Single, меняю точку на запятую все работает, есть мысль что проблемма в национальном формате можно ли как нииь это дело обойти. Заранее спасибо.

Решение задачи: «Проблема с преобразованием типов»

textual
                            Листинг программы 
                        

                            Text1 = '123,123'
Text1 = Replace(Text1, '.', Mid(CStr(1.1), 2, 1))
Text1 = Replace(Text1, ',', Mid(CStr(1.1), 2, 1))
MsgBox IsNumeric(Text1) 'возвращает True
 
Text1 = '123.123'
Text1 = Replace(Text1, '.', Mid(CStr(1.1), 2, 1))
Text1 = Replace(Text1, ',', Mid(CStr(1.1), 2, 1))
MsgBox IsNumeric(Text1) 'возвращает True
                        