Public Function fnCZtoLAT(Naziv As String) As String
'******************************************************
'Autor:zxz
'datum: 19.01.2021
'mijenja karaktere iz str1 u adekvatne po poziciji u str2
'u string kao ulazni parametar Naziv
'********************************************************
Const str1 = "IÅ EOŽÝÁÍÉÚUiÅ¡eožýáíéúua "
Const str2 = "ESCRZYAIEUUescrzyaieuucu"
Dim duz As Integer, i As Integer, poz As Integer, n As Integer
Dim car1 As String * 1, car2 As String * 1, str As String

duz = Len(str1)
str = Naziv
n = 1
  For i = 1 To duz
  car1 = Mid(str1, i, 1)
  car2 = Mid(str2, i, 1)
  poz = InStr(n, str, car1)
    If poz > 0 Then
    str = Replace(str, car1, car2)
    End If
  Next i
 fnCZtoLAT = str
End Function