Dim crtl As Control
 
    For i = 10 To 40
        For Each crtl In Me.Controls
            If Left(crtl.Name, 4) = "Text" Then
                If Len(crtl.Text) <= 0 Then
                    crtl.Text = "?"
                End If
            End If
        Next
    Next i

For i = 10 To 40
    If Len(Text1(i).Text) <= 0 Then
        Text1(i).Text = "?"
    End If
Next i