Function KcHrf(txtGirdi As String) As String

Dim TmpGirdi As String

Dim Hrf As String

Dim ilkHrfSay, SonHrfSay As Long

TmpGirdi = Replace(Trim(txtGirdi), " ", "")



Do While Len(TmpGirdi) > 0

ilkHrfSay = Len(TmpGirdi)

Hrf = Left(TmpGirdi, 1)

TmpGirdi = Replace(TmpGirdi, Hrf, "")

SonHrfSay = Len(TmpGirdi)

KcHrf = Hrf & " harfinden : " & ilkHrfSay - SonHrfSay & vbCrLf & KcHrf

Loop



End Function