Public Sub BKWait(HowManySecs)
'   pause for HowManySecs seconds
    Dim EndWait
    EndWait = DateAdd("s", HowManySecs, Now)
    While Now < EndWait
'        this is dummy text...nothing is actually done during the wait
    Wend

End Sub
