Maybe

=LEFT(A1,FIND(" ",A1))
VBA Noob