Walter,

Try...

Private Const vKillET = "00:00:30"

...and in your function...

killtime = TimeValue(Now) + TimeValue(vKill_ET)
'returns time in hh:mm:ss AM/PM

Also, in your function you might want to def a var to hold the boolean
value used in your If..Then block. It can be set True as a default
unless a condition toggles it false...

Dim bMyVar As Boolean
bMyVar = True '//assume success

'//some code that preserves or toggles bMyVar

If Not bMyVar Then
newie:
...

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion