Değerli arkadaşlar bu konuda internette arama yaparken şöyşe bir çözüm buldum bana çok ilginç geldi bu arkadaş önce cümleyi ters çevirmiş oluşan cümlenin 1. kelimesini almış daha sonra bulduğu kelimeyi tekrar ters çevirmiş belki birilerinin işine yarar.

Dim Kelime As String

Kelime = StrReverse([Unvanı])
Kelime = Left(Kelime, InStr(1, Kelime, " ", vbTextCompare))

sonK = StrReverse(Trim(Kelime))

1. mesajda istediğim şuydu
"Veri Hazırlama ve Kontrol İşletmeni"
lazım olan "İşletmeni"
bu arkadaşın mantığında önce
inemtelşİ lortnoK ev amalrızaH ireV
bu şekle dönüştürüp "inemtelşİ" yi almak daha sonra tekrar ters çevirmek
herkese kolay gelsin.
eğer başka çözümü olan varsa yinede cevap bekliyorum.