textbox yüzde hesabı

[abdullahss]

iki kodda aynı olmasına rağmen sonuç farklı çıkıyor neden olur çözemedim yardımcı olabilirmisiniz.

Private Sub TextBox39_Change()
Ab = TextBox28
AM = TextBox39
AC = TextBox29
If TextBox28.Value = "" Then Ab = 0
If TextBox39.Value = "" Then AM = 0
If TextBox29.Value = "" Then AC = 0
TextBox29.Value = Replace((Ab * AM) / 100 + Ab * 1, ".", ",")
End Sub
Private Sub TextBox40_Change()
AC = TextBox29
AN = TextBox40
AD = TextBox30
AE = TextBox31
If TextBox29.Value = "" Then AC = 0
If TextBox40.Value = "" Then AN = 0
If TextBox30.Value = "" Then AD = 0
TextBox30.Value = Replace((AC * AN) / 100 + AD * 1, ".", ",")
TextBox31.Value = Replace((AC * AN) / 100 + AD * 1, ".", ",")
End Sub