Thanks mikerickson

I thought I had tried that, but apparently I made a typing error, as this is now a working alternative.
[vba]
=IF(ISERROR(TRIM(LEFT(A2,FIND(" ",A2,1)))),A2,TRIM(LEFT(A2,FIND(" ",TRIM(A2),1))))
[/vba]