Yüzde hesaplama hatası

[byfika]

Merhabalar, textboxlarda yüzde hesaplamasındaki hatayı nasıl düzeltebilirim. Ekteki örneğin içine detaylı bilgiyi yazdım.
Bilgi için teşekkürler...

 

[Haluk]

Private Sub ComboBox1_Change()
    TextBox1 = Sheets("Sayfa1").Cells(ComboBox1.ListIndex + 2, "h")
    TextBox2 = Val(Replace(Sheets("Sayfa1").Cells(ComboBox1.ListIndex + 2, "j"), ",", "."))
    
    TextBox3 = Format(Val(TextBox2) * 1.4, "###,###.00")
    TextBox4 = Format(Val(TextBox3) * 1.3, "###,###.00")
    TextBox5 = Format(Val(TextBox4) * 1.18, "###,###.00")
End Sub

.

 

[byfika]

Haluk bey, yazdığınız kodlar istediğimi yapmakta, çok teşekkürler.
Saygılar...