Class Module Noktasız YTL Girişli TextBoxlarda Toplam Soru

[class37]

Merhaba
Class Module kullanarak ismi değiştirilmeyen TextBoklarda ayraç kullanmadan YTL girişi yapılan UserForm oluşturdum.Toplama problemi çıktı.CCur kullarak toplatıyorum ama TextBoxlardan herhangi biri boş olduğunda hata veriyor.Bu sorunu nasıl aşabilirim?.İyiçalışmalar.
EDİT:Sayın Levent beyin kodu ile düzenlenmiş hali ile değiştirildi.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:fe784bd310]Private Sub CommandButton1_Click()
On Error Resume Next
For a = 1 To 3
If Controls("textbox" & a) = "" Then Controls("textbox" & a) = 0
Next
aa = CCur(TextBox1.Value) + CCur(TextBox2.Value) + CCur(TextBox3.Value)
End Sub[/vb:1:fe784bd310]

 

[class37]

Levet bey Teşekkürler.Dosyanın yeni halini ekledim.Eski dosyayı silmeyi ise beceremedim. Ã?rnek çalışma ve Linkler bölümüne taşıyabilirseniz arkadaşlarında faydalanacağını düşünüyorum.Tekrar Teşekkürler.