How do I store dynamic textbox values in an array from a userform to be used in a module? I have publicly declared array1() as variant and BuildingNumber as long in my module. I want to save each txtBox value that the user inputs into an array to be used in my module
VBA Code:
Private Sub UserForm_Initialize()
Dim i As Long
BuildingNumber = InputBox("How Many Buildings Have Units?", "Enter Building Number")
UnitNumber = InputBox("How Many Unit Types Are There on This Job?", "Enter Unit Number")
FixtureNumber = InputBox("How Many Fixture Types Are There in Units?", "Enter Fixture Number")
Dim txtB1 As Control
ReDim array1(1 To BuildingNumber)
For i = 1 To BuildingNumber
Set txtB1 = Controls.Add("Forms.TextBox.1")
With txtB1
.Name = "txtBox" & i
If i <= 25 Then
.Height = 20
.Width = 75
.Left = 100
.Top = 20 * i * 1
ElseIf 25 < i And i <= 50 Then
.Height = 20
.Width = 75
.Left = 300
.Top = 20 * (i - 25) * 1
ElseIf 50 < i And i <= 75 Then
.Height = 20
.Width = 75
.Left = 500
.Top = 20 * (i - 50) * 1
Else
End If
array1(i) = Me.Controls("txtBox" & i).Value
End With
Next i