プログラムで追加されたVBAテキストボックスからデータを保存する

Question

ユーザーが希望するテキストボックス数に応じてプログラムでテキストボックスを空白のユーザーフォームに追加する関数を作成しようとしています。

現在、私はこれを行う機能を持っていますが、テキストボックスの値は保存できません。私はあなたに名前を付けることが容易である

Function addtxtbox(number_of_textboxes As Integer) 

Dim option_names As New UserForm2 
Dim names As String 
Dim test As String 
Dim textbox As Object 
Dim submit As Object 

For i = 1 To number_of_textboxes 
    Set textbox = option_names.Controls.Add("Forms.textbox.1") 
    With textbox 
     .Left = 30 
     .Width = 200 
     .Top = 20 * i 
     .Left = 20 
    End With 

    MsgBox (textbox.Name)'used to find the name of the textboxes 

Next 

option_names.Show 

names = "TextBox1" 'correct name of the 1st textbox according to the msgbox above. 
MsgBox (names) 'msgbox is always blank 
test = option_names.names 'Compile error: Method or data members not found 
'test = textbox.TextBox1.Value 'run time error 418 object does not support this property or method 
MsgBox (test) 

End Function 

Answer 1

しかしそれらのどれもが、（問題のテキストボックスをプログラムで追加されなかったが、別々のコードで前に働いて、同じ方法にもかかわらず）動作するようには思えない、いくつかの方法をテキストボックスを参照しようとしています予測可能な順序でテキストボックス：

For i = 1 To number_of_textboxes 

    Set textbox = option_names.Controls.Add("Forms.textbox.1") 
    With textbox 
     .Left = 30 
     .Width = 200 
     .Top = 20 * i 
     .Left = 20 
     .Name = "dynamic_" & i '<<<<<<< name the textbox 
    End With 

    MsgBox (textbox.Name)'used to find the name of the textboxes 

Next 

今、あなたはのようなものを使用することができます。

For i = 1 To number_of_textboxes 

    MsgBox "Textbox# " & i & " has value '" & _ 
      Me.Controls("dynamic_" & i).Text & "'" 

Next