Take a look at
http://support.microsoft.com/default.aspx?scid=kb;en-us;266289.

Although this article is for VB 6, the code works just fine in VBA. The only
difference is that VB names it's first button Command1 and Access names it's
Command0. Change either the button name or the sub procedure to match the
other.

Good luck.

Sco

M.L. "Sco" Scofield, Microsoft Access MVP, MCSD, MCP, MSS, A+
Denver Area Access Users Group Vice President www.DAAUG.org
MS Colorado Events Administrator www.MSColoradoEvents.com
Useful Metric Conversion #18 of 19: 8 nickels = 2 paradigms (My personal
favorite)
Miscellaneous Access and VB "stuff" at www.ScoBiz.com

Here is an example that uses a hard coded comma to spit a string on.

Public Function ParseText(TextIn As String, X) As Variant
On Error Resume Next
Dim VAR As Variant
VAR = Split(TextIn, ",", -1)
ParseText = VAR(X)

End Function

You can call it from a query, for instance, using:

FirstName:ParseText([FullName], 1)

Which will return
John
(the 2nd split value) if the full name was "Smith, John".

The split function is Zero based, so you need to refer to the first
split value  result as (0), the second as (1), etc.

You can alter the arguments in the above function to allow more user
flexibility in selecting the character to split on, i.e. a space
instead of the comma used in the above sample.

Ok ... I just got it to work.  I'm having other issues with Access, now.  Under
different header.

Thanks go to Sco, Fred and Klatuu,
RD