Oops.., I forgot you can't do constants that way! Better to go with...

Dim gsBlankLine$

...and in a startup routine, initialize all globals...

Sub InitGlobals()
gsBlankLine = Chr(13) & Chr(13) & Chr(10)
'..others
End Sub

...where the prefix "gs" denotes 'global scope string' var.

--
Garry

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