Некоректно переносятся числовые значения в листбокс

[Юрий_brv]

Доброго времени суток.
имеется листбокс на форме для выбора товара. После выбора товара появляется текстбокс для ввода данных и по нажатию на Enter данные переносятся в листбокс.(цифры переносятся с точкой ,а надо через запятую).
Как правильно подкорректировать код , что бы в листбоксе отображались цифры через запятую.

[cheshiki1]

вариант

Код Выделить Развернуть

Me.lBoxTovCol.List(lBoxTovCol.ListCount - 1, 1) = CStr(CurrentVal)

[Юрий_brv]

cheshiki1, спасибо .Ваш вариант работает.