Count textbox values greater than 0

[agfac]

Hi,

I wonder to count textbox values greater than 0 and I made this code but it's not working.

Could someone help me please?

Thanks

Dim i As Integer
Dim divisor As Integer

    divisor = 0
    
    For i = 1 To 11
        If ("TextBox" & i).Value > 0 Then
            divisor = dividor + 1
        End If
    Next i


Dim soma As Long
    
    soma = TextBox1.Value + TextBox2.Value + TextBox3.Value + TextBox4.Value + TextBox5.Value + TextBox6.Value + TextBox7.Value + TextBox8.Value + TextBox9.Value + TextBox10.Value + TextBox11.Value
    
    Label203.Caption = soma \ divisor

[Bob Phillips]

Dim i As Integer 
Dim divisor As Integer 
 
divisor = 0 
 
For i = 1 To 11 
    If  Me.Controls("TextBox" & i).Value > 0 Then 
        divisor = dividor + 1 
    End If 
Next i 
 
 
Dim soma As Long 
 
soma = TextBox1.Value + TextBox2.Value + TextBox3.Value + TextBox4.Value + TextBox5.Value + TextBox6.Value + TextBox7.Value + TextBox8.Value + TextBox9.Value + TextBox10.Value + TextBox11.Value 
 
Label203.Caption = soma \ divisor

[agfac]

It works!

Thanks