Запятая вместо точки в форме VBA

[OLEGIK1974]

Добрый вечер Всем!
Уважаемые знатоки.....
Подскажите что нужно поменять в коде формы(PROmagazin)чтобы вместо точки работала запятая в качестве разделителя дробной части....
(форма вызывается при нажатии на ячейку с наименованием товара на листе остаток)
Спасибо!

[EducatedFool]

вместо

Private Sub TextBox6_Change()
   Me.TextBox10 = CDbl(Val(Me.TextBox6) * Val(Me.TextBox2))      'сумма
End Sub

напишите

Private Sub TextBox6_Change()
    Me.TextBox6 = Trim(Replace(Me.TextBox6, ",", "."))
    Me.TextBox10 = Val(Me.TextBox6) * Val(Me.TextBox2)    'сумма
End Sub

И всё будет работать независимо от того, введена точка или запятая в качестве разделителя дробной части

[doober]

До кучи

Sub izmenenie()
   On Error GoTo izmenenie_Error
    Me.TextBox30 = CDbl(Me.TextBox20) - CDbl(Me.TextBox2)          '
    Me.TextBox10 = CDbl(Me.TextBox6) * CDbl(Me.TextBox2)     '
   On Error GoTo 0
   Exit Sub
izmenenie_Error:
End Sub

[OLEGIK1974]

Огромное Вам Всем Спасибо....
Буду разбираться.