Soru Textbox ortalama

[sirkülasyon]

Hayırlı Günler;
Form üzerinde Textbox da (1-9) yazılı rakamların sıfır ya da boş olma durumu da göz önüne alınarak sadece dolu olanların ortalamasını (Textbox10) nasıl alabilirim? Rica etsem yardımcı olabilir misiniz?

 

[Orion1]

Buyurun.

Dim i As Byte, topla As Double, say As Integer
For i = 1 To 9
    If IsNumeric(Me.Controls("TextBox" & i)) And Me.Controls("Textbox" & i) > 0 Then
        topla = topla + Me.Controls("TextBox" & i)
        say = say + 1
    End If
    TextBox10.Value = topla / say
Next

 

[sirkülasyon]

Teşekkür ederim Evren Abi