I call this the last Name of the shipper:
LShipper: Left([Shipper],InStr(1,[Shipper],", ")-1)
And First Name of the Shipper:
FShipper: Right(Trim([Shipper]),Len(Trim([Shipper]))-InStr(1,[Shipper]," "))
Then have another files called NewShipper that gives me First name and last name...