Optellen met textbox, uitkomst in cel

[huijb]

Ben het even kwijt. Op een Userform heb ik wat textboxen, hierin wil ik d.m.v. het invullen van een 1 dat diversen cellen in een sheet ook ophogen met 1. Dat doe ik met dit;

Blad1.Range("C3").Value = Me.V_a.Value + Blad1.Range("C3").Value
Blad1.Range("D3").Value = Me.OV_a.Value + Blad1.Range("D3").Value
Blad1.Range("E3").Value = Me.NVT_a.Value + Blad1.Range("E3").Value

. Dus telkens wanneer ik een 1 invul moet de cel ophogen met 1.

Wanneer ik bv. in één textbox niets invul krijg ik de foutmelding;
Fout 13 tijdens uitvoering
Typen komen niet met elkaar overeen

Ik doe wat fout maar weet niet meer wat.

 

[Wigi]

Werkt dit beter Michel?

Blad1.Range("C3").Value = [B]Val[/B](Me.V_a.[B]Text[/B]) + Blad1.Range("C3").Value
'...

 

[huijb]

Werkt dit beter Michel?

Beter? zeg maar gerust, het werkt. Bedankt Wigi.