textbox toplama

[sirkülasyon]

For f = 1 To 43 Step 3
If IsNumeric(Me.Controls("Textbox" & f).Text) = True Then
m = m + CDbl(Controls("Textbox" & f).Text)
Me.Controls("Textbox" & f) = Me.Controls("Textbox" & f)
End If
Next
TextBox46.Text = (m)

Yukarıdaki kodu butona bağlayınca topluyor. Butona bağlamadan direkt rakam girdikçe toplama işlemini yapması için nasıl düzeltebilirim?

 

[sirkülasyon]

form üstünde commandbutton gün ekler ay yıl eklemez isen ya da tersi durumunda ve hiçbir rakam girmeden butonu çalıştırınca hata veriyor. kontrol edebilir misiniz