Private Sub Soyadi_Exit(Cancel As Integer)
If Len(Soyadi) > 0 Then Soyadi = TUMUBUYUK(Soyadi)
End Sub

--------------------------------------------------------------

Public Function TUMUBUYUK(ByVal harf As String) As String
    TUMUBUYUK = StrConv(harf, vbProperCase)
    TUMUBUYUK = Replace(TUMUBUYUK, "a", "A")
    TUMUBUYUK = Replace(TUMUBUYUK, "b", "B")
    TUMUBUYUK = Replace(TUMUBUYUK, "c", "C")
    TUMUBUYUK = Replace(TUMUBUYUK, "ç", "Ç")
    TUMUBUYUK = Replace(TUMUBUYUK, "d", "D")
    TUMUBUYUK = Replace(TUMUBUYUK, "e", "E")
    TUMUBUYUK = Replace(TUMUBUYUK, "f", "F")
    TUMUBUYUK = Replace(TUMUBUYUK, "g", "G")
    TUMUBUYUK = Replace(TUMUBUYUK, "ğ", "Ğ")
    TUMUBUYUK = Replace(TUMUBUYUK, "h", "H")
    TUMUBUYUK = Replace(TUMUBUYUK, "i", "İ")
    TUMUBUYUK = Replace(TUMUBUYUK, "ı", "I")
    TUMUBUYUK = Replace(TUMUBUYUK, "j", "J")
    TUMUBUYUK = Replace(TUMUBUYUK, "k", "K")
    TUMUBUYUK = Replace(TUMUBUYUK, "l", "L")
    TUMUBUYUK = Replace(TUMUBUYUK, "m", "M")
    TUMUBUYUK = Replace(TUMUBUYUK, "n", "N")
    TUMUBUYUK = Replace(TUMUBUYUK, "o", "O")
    TUMUBUYUK = Replace(TUMUBUYUK, "ö", "Ö")
    TUMUBUYUK = Replace(TUMUBUYUK, "p", "P")
    TUMUBUYUK = Replace(TUMUBUYUK, "r", "R")
    TUMUBUYUK = Replace(TUMUBUYUK, "s", "S")
    TUMUBUYUK = Replace(TUMUBUYUK, "ş", "Ş")
    TUMUBUYUK = Replace(TUMUBUYUK, "t", "T")
    TUMUBUYUK = Replace(TUMUBUYUK, "u", "U")
    TUMUBUYUK = Replace(TUMUBUYUK, "ü", "Ü")
    TUMUBUYUK = Replace(TUMUBUYUK, "v", "V")
    TUMUBUYUK = Replace(TUMUBUYUK, "y", "Y")
    TUMUBUYUK = Replace(TUMUBUYUK, "z", "Z")
End Function