On Error Resume Next
 
    Dim i As Integer
    For i = 0 To Text1.UBound
        Text1(i).Enabled = True
 
        If Err.Number = 0 Then
            Debug.Print Text1(i).Text
        Else
            Debug.Print "Object nummer " & i & " existiert nicht"
            Err.Number = 0
        End If
    Next i

Mit freundlichen Gr??en,
Andy G.