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