Как записать данные из Texbox-ов в массив?

[Bagathur]

Есть форма, содержащая до 80 TextBox-ов с Названиями ТБ1(01-40) и ТБ2(01-40). Как записать их Text в двумерный массив попарно? Чтобы значение ТБ101 было в той же строке, что и ТБ201?
Кроме этих Texbox-ов есть другие, значения которых записывать не нужно.
Пробовал через For Each Control In UserForm.Controls, но не получается - естесственно, выдаёт ошибко при попытке вызвать .Text у тех Controls, которые такого свойства не имеют.
For Each TextBox вообще отказывается работать, фильтрация по Control.Name тоже оказалась неудачной.
Нет ли возможности написать что-то вроде
For i=1 to 40
aryChange (i, 1) = ТБ1 & i
aryChange (i, 2) = ТБ2 & i
Next

Пока что пишу в массив вручную, перебирая по одному все 80 нужных TextBox-ов.
Искал в поиске, но что-то он как-то странно тут работает.

[alibek]

Проверяй тип контрола через TypeOf.

[Nicky]

...Пробовал через For Each Control In UserForm.Controls, но не получается - естесственно, выдаёт ошибко при попытке вызвать .Text у тех Controls, которые такого свойства не имеют.
...

Код: Выделить всё

If TypeOf Control Is TextBox Then

[Bagathur]

А как отсекать те TextBox-ы, значения из которых не нужны?
Можно как-нибудь фильтровать Controls по свойству Name?

[Bagathur]

Хм. Чтот не работает TypeOf - для всех элементов выдаёт что они не TextBox-ы. Вместо Control показывает забитые в бокс данные.

[KL]

что-нибудь в этом духе:

Код: Выделить всё

Private Sub UserForm_Initialize()
    Dim tb As Control
    For Each tb In Controls
        If TypeOf tb Is msforms.TextBox Then
            Select Case True
            Case tb.Name Like "TextBox#*"
                tb = tb.Name
            End Select
        End If
    Next tb
End Sub

или

Код: Выделить всё

Private Sub UserForm_Initialize()
    Dim tb As Control
    For Each tb In Controls
        If TypeOf tb Is msforms.TextBox Then
            Select Case Mid(tb.Name, 8, 255)
            Case 1, 3 To 5, 7
                tb = tb.Name
            End Select
        End If
    Next tb
End Sub

[KL]

можно еще так:

Код: Выделить всё

Private Sub UserForm_Initialize()
    Dim tb As Control
    For Each tb In Controls
        If TypeOf tb Is msforms.TextBox Then
            Select Case tb.Name
            Case "TextBox22", "TextBox134", "TextBox346"
                tb = tb.Name
            End Select
        End If
    Next tb
End Sub

[Bagathur]

Всё круто, всё работает! Даже фильтрация по именам элементов.
Спасибо.
Особенно - Лапинку за хинт с "msforms.TextBox" - без него ничего не работало, а сам я правильного ответа (msforms) наверняка бы не нашёл.