measure the length of text in 10 boxes consecutivly.

Hi all,

I am trying to use a For loop to measure the lenght of text in 10 text boxes on a user form so I can run a check but can't think of a way to do it.

This is the best I have so far...

For Count = 1 To 10
    TextField = "Me.txtText" & Count
    TextLength = TextField.Length
    If TextLength > 50 Then
        If Error = "" Then
            Error = "Text field " & Count
        Else
            Error = Error & vbCrLf & "Text field " & Count
        End If
    End If
Next

Any help greatly appriciated.

What are the names of the textboxes?

Maybe ...

    Dim i As Long
    
    For i = 1 To 10
        With Me.Controls("txtText" & i)
            If Len(.Value) > 50 Then
                MsgBox .Name & " has too much text"
                Cancel = True
                .SetFocus
                Exit Sub
            End If
        End With
    Next i