URGENT: get macro to pause, get module to run

I have a macro called TriFilter2.  I need it to pause midway for about 10 
seconds, then continue on.  So, i was advised to make it a module.  I did 
(via the convertor).  Then i created a macro to run it, using RunCode and
the 
module name.  but nothing happens when i run the macro.  below is code for

the module.  even if i take the Wait() out, it still doesn't work.  i'm on

Access 2007.

Option Compare Database

'------------------------------------------------------------
' TriFilter2
'
'------------------------------------------------------------
Public Function TriFilter2vba()

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "SMquery", acViewNormal, acEdit
    DoCmd.OpenQuery "PIPquery", acViewNormal, acEdit
    DoCmd.OpenQuery "PLBquery", acViewNormal, acEdit
    Call Shell("""C:\Program Files\Microsoft Office\OFFICE11\WINPROJ"" 
""C:\Do***ents and Settings\deckers\Desktop\Take-off""", 1)
    Call Shell("""C:\Program Files\Microsoft Office\Office12\POWERPNT"" 
""C:\Do***ents and Settings\deckers\Desktop\ScheduleOutput.pptm""", 1)
    DoCmd.SetWarnings True

End Function

Publice Funcion Wait()
    waitTime = 10
    Start = Timer
    While Timer < Start + waitTime
        DoEvents
    Wend
End Function

thanks
scott