I changed up the code to
Public CompleteTime As Date
Public Function GetTime(txtbox As Control) As Date
DoCmd.OpenForm "frmGetTime", , , , , acDialog
txtbox = CompleteTime
End Function
Private Sub cmdOK_Click()
CompleteTime = Forms!frmGetTime!cboHour & ":" &...