Private Sub TextBox3_Change()
deg1 = Replace(IIf(TextBox1 = "", 0, TextBox1), ".", ",")
deg2 = Replace(IIf(TextBox3 = "", 0, TextBox3), ".", "")
TextBox4 = Format(Replace(CDbl(deg1) - CDbl(deg2), ".", ","), "#,##0.00")
End Sub
Bu şekilde değiştirip denermisiniz...