Çözüldü Kodların X isimli textboxlar için geçerli olması

Private Sub UserForm_Initialize()
    Dim p%, nesne As Control
    For Each nesne In Controls
        If TypeName(nesne) = "TextBox" Then
            If InStr(1, nesne.Name, "Ek") > 0 Then
                ReDim Preserve txtler(p)
                Set txtler(p).txt = nesne
                p = p + 1
            End If
        End If
    Next nesne
End Sub