Please search for previous posts before adding a new thread. From a
previous post, I found the following posted by John Spencer...
The expression below will work as long as the string has a space in it.
Trim(Left([TheString],Instr(1,[TheString]," ")))
If your string might be blank (or null) or have no space in it, try
Trim(Left([TheString],Instr(1,[TheString] & " "," ")))