Textboxta yuvarlama

[vasifokur]

Textbox 1 ve 2. deki sayıların toplamını tam sayıya yuvarlamak için yardım eder misiniz?

 

[bzace]

Hayırlı akşamlar,
Ne şekilde yuvarlanacak bilmiyorum ama,
Yukarı doğru şu şekilde yuvarlayabilirsiniz.

Private Sub CommandButton1_Click()
TextBox3 = Round(CDbl(TextBox1) + CDbl(TextBox2), 0)
End Sub

Yada yukarı doğru yuvarlamadan;

Private Sub CommandButton1_Click()
TextBox3 = Val(TextBox1) + Val(TextBox2)
End Sub