I have the following code for transferring TextBox data on a form to a row on the spreadsheet:

Sheets("Database").Range("A65536").End(xlUp).Offset(1, 0).Value = CDate(frmInput.txtDate.Value)
Sheets("Database").Range("A65536").End(xlUp).Offset(0, 1) = frmInput.txtSort
Sheets("Database").Range("A65536").End(xlUp).Offset(0, 2) = frmInput.txtName
Sheets("Database").Range("A65536").End(xlUp).Offset(0, 6) = frmInput.txtProcessor
Sheets("Database").Range("A65536").End(xlUp).Offset(0, 3) = frmInput.lstTeam
Sheets("Database").Range("A65536").End(xlUp).Offset(0, 5) = frmInput.txtError
Sheets("Database").Range("A65536").End(xlUp).Offset(0, 8) = frmInput.txtComment
Sheets("Database").Range("A65536").End(xlUp).Offset(0, 4) = frmInput.txtFail
Sheets("Database").Range("A65536").End(xlUp).Offset(0, 7) = frmInput.txtUser
How would I write a loop that does this, rather than having to use so many lines of code?

You know like

Dim txtbox As EditBox
For Each txtbox In ActiveWorkbook.UserForms.frm390...

Anyone know?
Any help much appreciated