Hi. A slight correction. Based on your information, use this version of
the function instead.
Please write back if you still have problems. [or if it works :) ]

Function ShowTrial(Reason As Integer)
ShowTrial = Reason 1
End Function

--
Dana DeLouis
Win XP & Office 2003

<snip