Необходимо вычислить розничную цену товара на форме.

Что-то у меня проблема с вычислением в форме. Мне необходимо вычислить розничную цену товара для этого к Цене с учетом НДС + Наценку, вроде все наисал правильно а вычесление савершается неверное вместо числа 35,3 выдается число 29,5. Помогите пожалуйста. Не могу поянть в чем дело. Помогите пожалуйста. Вот код:

[Private Sub cmdRaschet_Click()
Sbst = txtSebestoimost.Value
Nds = txtNds.Value
SumNds = txtSummNds.Value
CenSNDS = txtCenasNds.Value
Nac = txtNacenka.Value
NacP = txtNacPorsent.Value
Roz = txtRoznica.Value
Kolvo = txtKolvo.Value
If txtKod = '' Then MsgBox 'Код не введен!!!'
If txtNametovar = '' Then MsgBox 'Наименование товара не введено!!!'
If txtSebestoimost = '' Then MsgBox 'Себестоимость не введена!!!'
If txtNds = '' Then MsgBox 'НДС не введено!!!'
If txtKolvo = '' Then MsgBox 'Количство товара не введено!!!'
txtSummNds = (Sbst * Nds) / 100
CenSNDS = (Sbst * (100 + Nds)) / 100
txtCenasNds.Value = CenSNDS
txtNacenka = (Val(CenSNDS) * Val(NacP)) / 100
txtRoznica.Value = CenSNDS + Val(Nac)
'Roznica = (Val(CenSNDS) * (100 + Val(Nac))) / 100
'txtRoznica.Value = Roznica
'txtRoznica = (Val(CenSNDS) * (100 + Val(Nac))) / 100
txtSumma = Val(Roz) * Val(Kolvo)
End Sub]

0