Textbox Son Kelime Büyük

Aşağıdaki kodlar textbox içinde yazılan kelimelerin baş harflerini büyük yazar en son kelimeyi büyük yazar. Örnek verecek olursak;Murat AKTAŞ

Private Sub Textbox1_Change()
On Error Resume Next
Dim a, j, Ad, Soyad
a = Split(Textbox1)
    For j = 0 To UBound(a) - 1
        Ad = Trim(Ad & " " & a(j))
    Next j
Soyad = Trim(a(UBound(a)))

If Soyad = "" Then
Soyad = Evaluate("=UPPER(""" & Soyad & """)")
Else
Ad = Evaluate("=PROPER(""" & Ad & """)")
End If

Soyad = Evaluate("=UPPER(""" & Soyad & """)")
Textbox1 = Ad & " " & Soyad
End Sub