VBA TextBoxを配列処理する

Dim Val_Array as Variant

For i = 1 to 20
    if UserForm1.Controls("TextBox" & i) = "" Then
         Exit For
    Else
        Text_Val = UserForm1.Controls("TextBox" & i) & "," & Text_Val
    End if
Next

Values = split(Text_Val, ",")

たぶん、考えたらもっといい方法あるんですが
なにぶん時間がなかったので、微妙なコードになっちゃいました・・・

まぁ、これで配列に格納出来るし良いかな・・・