1 - benzeri bir yapı işinize yarayabilir

Me.TextBox3 = IIf(Len(Me.TextBox1 & "") = 0, 0, Me.TextBox1) + IIf(Len(Me.TextBox2 & "") = 0, 0, Me.TextBox2) * 2

2 - metin kutularının başlangıç değerleri 0 yapılabilir
3 - kod bloğunuzun başına on error resume next kod satırı eklenebilir