Rakamı textbox adedine bölme

[ynmcan]

Merhaba arkadaşlar;

UserForm üzerindeki 3 adet veri girdiğim TextBox var.
Bir rakkamı UserForm üzerindeki içinde veri olan textBox adedine bölmek istiyorum.
Şöyle bir kod düşündüm ama yazamadım;
x = 3 adet textBox' tan, text'eri dolu olan textBox adedi

Örnek dosyam ekte.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

For a = 1 To 3
If Controls("textbox" & a) <> "" Then c = c + 1
Next
TextBox5 = TextBox4 / c

 

[ynmcan]

Sny. Levent Menteşoğlu ;
hazırladığınız kod işimi görür. İlginize teşekkür ederim. Hayırlı akşamlar