textboxtaki eksi degerleri toplama

[fedeal]

userform üzerindeki textboxları aşagıdaki kodlarla topluyorum fakat eksi degerlerde hata veriyor.kodlarda ne gibi düzeltme yapabilirim.

Private Sub TextBox49_Change()
deg = TextBox49
deg1 = TextBox50
deg2= TextBox51

If TextBox49 = "" Then deg = 0
If TextBox50 = "" Then deg1 = 0
If TextBox51 = "" Then deg2 = 0


TextBox52 = Replace(deg * 1 + deg1 * 1 + deg2 * 1, ".", ",")
End Sub

 

[Orion1]

Private Sub TextBox49_Change()
On Error Resume Next
TextBox52.Text = 0
For i = 49 To 51
    TextBox52.Text = CDbl(TextBox52.Text) + CDbl(Controls("TextBox" & i).Text)
Next i
End Sub

 

[fedeal]

teşekkürler evren bey emeginize saglık

 

[Orion1]

teşekkürler evren bey emeginize saglık

Rica ederim.
İyi çalışmalar.