Hi,

Am Tue, 14 May 2019 03:30:24 -0700 (PDT) schrieb RG III:

Holy sheet! That works better than regular expression! 8)

another way:

sLine = "abc G. James #000"
str1 = Left(sLine, InStr(sLine, " ") - 1)
str2 = Trim(Replace(sLine, str1, ""))


Regards
Claus B.
--
Windows10
Office 2016