On Error Resume Next
For i = 0 To 10
  Text1(i).Text = ""
Next i
On Error Goto 0

Public Function ControlExists(oForm As Form, _
  sControlName As String, _
  Optional Index As Variant) As Boolean
 
  Dim oControl As Control
  Dim bExists As Boolean
 
  On Error Resume Next
  For Each oControl In oForm
    With oControl
      If .Name = sControlName Then
        If IsMissing(Index) Then
          bExists = True: Exit For
        Else
          If .Index = Index Then
            bExists = True: Exit For
          End If
        End If
      End If
    End With
  Next 
  On Error GoTo 0
 
  ControlExists = bExists
End Function

If ControlExists(Me, "Text1", 1) Then Text1(1).Text = ""

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de