Daha önce başka bir arkadaşa ad soyad ayırma konusunda verdiğim örneği bu konuya uyarlayarak yapabilirsiniz. Boşluk yerine "\" karakterini baz alacaksınız.
Kod:
'Önce kulanacağımız değişkenleri tanımlıyoruz.
Dim uzunluk As Integer
Dim ayir As Integer
Dim bosyer As Integer
For uzunluk = Len(adsoyad) To 1 Step -1
'adsoyad uzunluğu ne kadarsa oradan geriye doğru 1 er 1 er karakterlere bak
If Mid(adsoyad, uzunluk, 1) = " " Then
'eğer bu karakter boşluğa eşitse
bosyer = uzunluk
Exit For
'kaçıncı karakter olduğunu bosyer adlı değişkene ata ve for next döngüsünden çık
Else
End If
Next
'değilse döngüyü devam ettir
ayir = Len(adsoyad) - bosyer
'boşluğun kaçıncı karakterde olduğunu bulduktan sonra
'adsoyad uzunluktan bosluk yerini çıkar ve soyadın kaç karakter olduğunu bul
soyad = Right(adsoyad, ayir)
'soyad değişkenine adsoyadımızın sağından itibaren bulduğumuz ayir uzunluğu kadar
'karakteri ata