Function Art(Naziv_Art As String) As String
    Dim I As Integer
    Dim DuzStr As Integer
    Dim Temp As String
    Dim Znak As String
    Const Znak1 = "
    "
    Const Znak2 = ""
     
    DuzStr = Len(Naziv_Art)
    Temp = Naziv_Art
    For I = 1 To DuzStr
    Znak = Mid(Naziv_Art, I, 1)
    If Znak = Znak1 Or Znak = Znak2 Then
    Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
    End If
    Next I
    Art = Temp
    End Function