Hallo,
versuche es doch mal so:
If InStr(subject, " ") > 0 Then subject = Left$(subject, " " & InStrRev(subject, " ") - 1)
Gruß KH