Function JN(Veri As String) As String
Dim s As String, Hrf As String
Dim i As Long, v As Integer, k As Integer, Say As Integer
 
v = Len(Veri)
For i = 1 To v
s = Mid(Veri, i, 1)
If s <> "." Then
    Say = 0
    For k = 1 To v
        If s = Mid(Veri, k, 1) Then Say = Say + 1
    Next k
    Hrf = Hrf & s & Say
    Veri = Replace(Veri, s, ".")
End If
Next i
JN = Hrf
 
End Function