Assuming that your keyword field is something like this:
KEYWORD Partners already acquired
you could search the string for a space " " and use everything to the left of the space.
For i = 1 to len(keyword)
If Mid(keyword, 1, " ") then
keyword = left(keyword, i)
Exit For
End If
Next i
This...