How to use Using a single "date field" for various items in a data entry userform

How to use a single "date field" for various items in a data entry userform

Requirement:

I'm trying to create a data entry form (VBA userform) for a time-sheet.
The form has a limit of 12 inputs (rows) at a time, with the employee names and the type/number of hours worked.
To avoid typing the "date"12 times, I put a single field for the date, since it will be the same for each row. The problem is when there are less than 12 inputs. The code that I'm using brings the date 12 times anyway. Is there any other code that I can use to insert the date according to number of inputs/rows?

Solution:

Code:

For lngCount = 0 To 11
        If Me.Controls("ComboStaff" & lngCount + 1).Text = vbNullString Then Exit Sub
        AddNew.Offset(lngCount, 0).Resize(, 8).Value = Array(txtDate.Text, _
                                                             ComboStore.Text, _
                                                             Me.Controls("txtTravel" & lngCount + 1).Text, _
                                                             Me.Controls("ComboStaff" & lngCount + 1).Text, _
                                                             Me.Controls("txtWork" & lngCount + 1).Text, _
                                                             Me.Controls("txtOT" & lngCount + 1).Text, _
                                                             Me.Controls("txtTrvOT" & lngCount + 1).Text, _
                                                             Me.Controls("txtSpecial" & lngCount + 1).Text)

    Next lngCount

Obtained from the OzGrid Help Forum.

Solution provided by pike.