Цикл по элементам UserForm'ы

[A-ton]

На UserForm есть десяток элементов TextBox (ну или любых других), как можно задать их все в перечислении? Ну например мне нужно проверить значение каждого из них и просуммировать. Делать это путём указания каждого, как-то нерационально, а иных методов я найти не могу. Подскажите.

PS А ещё ни у кого нет сборника пользовательских функций? Ну всяких разных - ознакомится, поковыряться...просто сборник всего подряд...

[viter.alex]

Параметр Text в списке доступных свойств не будет появляться, но работать будет

  Dim oCtrl As MSForms.Control
  Dim Summ As Single
  For Each oCtrl In Me.Controls
    If TypeName(oCtrl) = "TextBox" Then
      Summ = Summ + CSng(oCtrl.Text)
    End If
  Next

А можно еще обращаться по именам в коллекцию Controls, например, если все элементы названы однообразно:

  Dim Summ As Single
  Dim i As Long
  On Error Resume Next
  For i = 1 To Me.Controls.Count
    Summ = Summ + CSng(Me.Controls("TextBox" & i).Text)
    If Err.Number = -2147024809 Then Err.Clear: Exit For
  Next i

[A-ton]

Спасибо! Сегодня попробую...