Public Function bkucuk(kelime)

Dim kont, i As Integer

Dim harf, eharf As String

    kont = Len(kelime)

    If kont <> 0 Then

        harf = Mid(kelime, 1, 1)

        If Asc(harf) = 73 Or Asc(harf) = 253 Then

            bkucuk = bkucuk & "I"

            ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then

            bkucuk = bkucuk & "İ"

 

            ElseIf harf = "ç" Or harf = "Ç" Then

            bkucuk = bkucuk & "Ç"

            ElseIf harf = "ğ" Or harf = "Ğ" Then

            bkucuk = bkucuk & "Ğ"

            ElseIf harf = "ö" Or harf = "Ö" Then

            bkucuk = bkucuk & "Ö"

            ElseIf harf = "ş" Or harf = "Ş" Then

            bkucuk = bkucuk & "Ş"

            ElseIf harf = "ü" Or harf = "Ü" Then

            bkucuk = bkucuk & "Ü"

            Else

            bkucuk = bkucuk & UCase(harf)

        End If

        For i = 2 To Len(kelime)

            harf = Mid(kelime, i, 1)

            If eharf = "." Or eharf = " " Or eharf = "-" Or eharf = "/" Then

                If Asc(harf) = 73 Or Asc(harf) = 253 Then

                   bkucuk = bkucuk & "I"

                    ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then

                    bkucuk = bkucuk & "İ"

                    ElseIf harf = "ç" Or harf = "Ç" Then

                    bkucuk = bkucuk & "Ç"

                    ElseIf harf = "ğ" Or harf = "Ğ" Then

                    bkucuk = bkucuk & "Ğ"

                    ElseIf harf = "ö" Or harf = "Ö" Then

                    bkucuk = bkucuk & "Ö"

                    ElseIf harf = "ş" Or harf = "Ş" Then

                    bkucuk = bkucuk & "Ş"

                    ElseIf harf = "ü" Or harf = "Ü" Then

                    bkucuk = bkucuk & "Ü"

                    Else

                    bkucuk = bkucuk & UCase(harf)

                End If

                Else

                If Asc(harf) = 73 Or Asc(harf) = 253 Then

                    bkucuk = bkucuk & "ı"

                    ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then

                    bkucuk = bkucuk & "i"

                    ElseIf harf = "ç" Or harf = "Ç" Then

                    bkucuk = bkucuk & "ç"

                    ElseIf harf = "ğ" Or harf = "Ğ" Then

                    bkucuk = bkucuk & "ğ"

                    ElseIf harf = "ö" Or harf = "Ö" Then

                    bkucuk = bkucuk & "ö"

                    ElseIf harf = "ş" Or harf = "Ş" Then

                    bkucuk = bkucuk & "ş"

                    ElseIf harf = "ü" Or harf = "Ü" Then

                    bkucuk = bkucuk & "ü"

                    Else

                    bkucuk = bkucuk & LCase(harf)

                End If

            End If

            eharf = harf

        Next i

    End If

End Function