جمع مقادیر چند تكست باكس (قالب بندی شده) حتی در صورت خالی بودن بعضی از تكست باكس‌ها

[ظهور 313]

سلام و عرض ادب خدمت همه دوستان و اساتید گرامی
برای جمع بین چند تكست باكس، از فرمولی به این شكل استفاده میكنم

Private Sub CommandButton1_Click()
Label1.Caption = Format(Int(TextBox1.Value) + Int(TextBox2.Value), "#,##")
End Sub

اما این فرمول یه مشكل داره و اونم اینه كه اگه بعضی از تكستباكسها خالی باشه، ارور میده
چطور میشه این مشكل رو برطرف كرد؟

[shamsololama]

با درود فراوان

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then TextBox1.Text = 0
If TextBox2.Text = "" Then TextBox2.Text = 0
Label1.Caption = Format(Int(TextBox1.Value) + Int(TextBox2.Value), "#,##")
End Sub

[ظهور 313]

با درود فراوان

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then TextBox1.Text = 0
If TextBox2.Text = "" Then TextBox2.Text = 0
Label1.Caption = Format(Int(TextBox1.Value) + Int(TextBox2.Value), "#,##")
End Sub

استاد عزیز از وقتی كه گذاشتید ممنونم. اما این فرمول خطا میده

[ظهور 313]

آقا كسی نمیتونه جواب بده؟
اساتید لطفا راهنمایی بفرمایید.

[iranweld]

با سلام

کدی که مهندس شمس العلما زحمتشو کشیدن درست عمل میکنه