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
    If Asc(Znak) > 200 Then
    Temp = Left(Temp, I - 1) & "c" & Mid(Temp, I + 1)
    Else
    Temp = Left(Temp, I - 1) & "C" & Mid(Temp, I + 1)
    End If
End If
Next I
Art = Temp
End Function