Auto Populate Form With Selected Email In VBA Userform

Hello,

I have a userform set up that when submitted populates a range in a database and emails the data to a recipient. Now the recipient is selected based on the day of the week and whether it is am/pm. As the email is going out to numerous recipients is it possible to auto populate a field in the form with the auto selected email so it can be recorded??

Regards,
Jeffrey

The Code for populating the database is:

ws.Cells(vNewRow, 1).Value = Format(Now, "dd/mm/yyyy hh:mm")
ws.Cells(vNewRow, 2).Value = Me.formField2.Value
ws.Cells(vNewRow, 3).Value = Me.formField3.Value
ws.Cells(vNewRow, 4).Value = Me.formField4.Value
ws.Cells(vNewRow, 5).Value = Me.formField5.Value
ws.Cells(vNewRow, 6).Value = Me.formField6.Value
ws.Cells(vNewRow, 7).Value = Me.formField7.Value
ws.Cells(vNewRow, 8).Value = Me.formField8.Value
ws.Cells(vNewRow, 9).Value = Me.formField9.Value
ws.Cells(vNewRow, 10).Value = Me.formField10.Value
ws.Cells(vNewRow, 1).Activate

and the code for selecting the email recipient is:

Select Case Weekday(Date)
Case 1 '// Sunday
.To = ""
Case 2 '// Monday
If CSng(Time()) <= 0.5 Then
.To = ""
Else
.To = ""
End If
Case 3 '// Tuesday
If CSng(Time()) <= 0.5 Then
.To = ""
Else
.To = ""
End If
Case 4 '// Wednesday
If CSng(Time()) <= 0.5 Then
.To = ""
Else
.To = ""
End If
Case 5 '// Thursday
If CSng(Time()) <= 0.5 Then
.To = ""
Else
.To = ""
End If
Case 6 '// Friday
.To = ""
Case 7 '// Saturday
.To = ""
End Select

Thanks for the help, good solution.