Замена одного значения на другое

[alexsampler]

Excel 2003
Очень нужна помощь!
Программа выдает файл с массивом, где цифры с отрицательным значением отображаются как например: 1,234.56- а нужно что бы было -1 234.56 (кол-во знаков и разряды могут быть разными)
В макросе с помощью мастера текста и функции автозамены (Ctrl+H) удается добиться лишь варианта 1234.56- , дальше чего бы не делал ни формат и само значение изменить не удается. Что бы добиться нужного формата приходиться убирать минус (-), НО тогда значение становится положительным 1 234.56, а это не приемлемо (нужно именно отрицательное число)
Выкладываю исходный файл из программы, и фал с макросом, которым преобразую текст в Excel , ну и пример того, что получается…
Мне предложили вот такое решение:

Dim s
s = "123.45-"
Debug.Print Val(s) * IIf(Right$(s, 1) = "-", -1, 1)
s = "-123.45"
Debug.Print Val(s) * IIf(Right$(s, 1) = "-", -1, 1)
s = "123.45"
Debug.Print Val(s) * IIf(Right$(s, 1) = "-", -1, 1)

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

[alex77755]

Можно создать процедуру и вызвать её из процедуры импорта

''''''''''''''' тут вся процедура импорта
ZNAK
End Sub

Sub ZNAK()
Dim J
For J = 10 To Cells(Rows.Count, 6).End(xlUp).Row
Cells(J, 6).Value = Val(Cells(J, 6).Value) * IIf(Right$(Cells(J, 6).Value, 1) = "-", -1, 1)
Cells(J, 7).Value = Val(Cells(J, 7).Value) * IIf(Right$(Cells(J, 7).Value, 1) = "-", -1, 1)
Next J
End Sub

Только разделительный знак станет запятая.
Если это принципиально - дописать Replace

[alexsampler]

Сообщение от alex77755

Можно создать процедуру и вызвать её из процедуры импорта

''''''''''''''' тут вся процедура импорта
ZNAK
End Sub

Sub ZNAK()
Dim J
For J = 10 To Cells(Rows.Count, 6).End(xlUp).Row
Cells(J, 6).Value = Val(Cells(J, 6).Value) * IIf(Right$(Cells(J, 6).Value, 1) = "-", -1, 1)
Cells(J, 7).Value = Val(Cells(J, 7).Value) * IIf(Right$(Cells(J, 7).Value, 1) = "-", -1, 1)
Next J
End Sub

Только разделительный знак станет запятая.
Если это принципиально - дописать Replace

Вы знаете условием как раз таки является оставлять разделитель точку, я об этом забыл указать, работаю с несколькими рабочими комплексами, там условие именно точка!!!

[alexsampler]

Всем, кому интересно
На самом деле решение найдено и оно оказалось вполне красивым и простым:
в конец макроса был дописан следующий код:

Dim r As Range
For Each r In [C:G].SpecialCells(2)
If InStr(r, "-") Then r = Val(r) * -1
Next