Eğer 2 karaktere kadar boşluk varsa, alttaki gibi kod revize edilebilir, daha fazlası için de bişeyler yapılır, ama verilerin standart olması daha uygun olacaktır.
Ayrıca sayın mehmetdemiral'ın bahsettiği gibi çift isimli ve soyisimli kayıtlara bir çare düşünmelisiniz.
Kod:
Split(Replace(Text, " ", " "), " ")(0)