Function Art1(Naziv_Art As String) As String
Dim I As Integer
Dim N As Integer
Dim Temp As String
Dim Znak1 As String
Dim Znak2 As String
Dim DuzStr As Integer
Dim Poz As Integer
Const Znaci1 = "
ŽžŠš"
Const Znaci2 = "CcCcDdZzSs"

Temp = Naziv_Art
DuzStr = Len(Naziv_Art)
For N = 1 To 10
Znak1 = Mid(Znaci1, N, 1)
Znak2 = Mid(Znaci2, N, 1)
If Znak1 = "" Then
Znak2 = Znak2 & "j"
End If
  For I = 1 To DuzStr
    Poz = InStr(I, Naziv_Art, Znak1, vbBinaryCompare)
    If Poz = I Then
      If Len(Znak2) = 2 And I > 1 Then
      I = I + 1
      DuzStr = DuzStr + 1
      End If
    Temp = Left(Temp, I - 1) & Znak2 & Mid(Temp, I + 1)
    End If
  Next I
Next N
Art1 = Temp
End Function