Posting Data with new form text boxes

[woodland81]

Hello,

I have an excel spreadsheet, it was made by someone else but i have worked out what to edit and amend over time to improve its usage. it has a Form with multiple text boxes, which when submitted, posts the data into an Archive Tab, each text box on the form, posting the contents to the next column in the series.

I managed to work out how to extend the range of columns it would post the data, but when I add new text boxes to the form and increase what I think is the range, I get an undefined error and/or the data doesnt materialise on the stored data sheet.

Now when i increase the C numbers it doesnt post the next data.
Tried copying the previous text box and increase the number range up by 1 but it has come to a point where its no longer working.
The Grey boxes I want to have text boxes which then post to the next field.

Any ideas, im sure its an easy tweak somewhere?

--------------------------------------

Application.Calculation = xlCalculationManual

Worksheets("Archive").Range("A" & rw).Value = UserForm1.ComboBox1 & UserForm1.ComboBox3

42915 Worksheets("Archive").Range("B" & rw).Value = Format(UserForm1.ComboBox1, "m/d/yyyy")

Worksheets("Archive").Range("D" & rw).Value = UserForm1.ComboBox3

For c = 5 To 70

frminput = "TextBox" & c - 5

Worksheets("Archive").Cells(rw, c).Value = UserForm1.Controls(frminput)

Next c

MsgBox "Information has been successfully input. Please input more information or click OK then Cancel to exit."

UserForm1.ComboBox1.ListIndex = -1

UserForm1.ComboBox3.ListIndex = -1

For c = 0 To 65
frminput = "TextBox" & c

UserForm1.Controls(frminput).Value = 0

Next c

Application.Calculation = xlCalculationAutomatic



End Sub

--------------------------------------------------------