It all works now. Thank you! In case anyone else could use the help, here is what I ended up using for the code...
Private Sub StatusCheck_Click()
TimerInterval = 1000
TimeCount = 300
Me.txtCounter.BackColor = vbWhite
DoCmd.OpenForm "Main_Page", , , , acFormAdd
Forms!Main_Page!FunctionKey =...