Public Function Naopako(StrZaNaop As String) As String
    Dim TempStr As String
    Dim BrojSlovaAs Long
    BrojSlova= Len(StrZaNaop)
    Do Until BrojSlova= 0
        TempStr = TempStr & Mid(StrZaNaop, lngCount, 1)
        BrojSlova= BrojSlova- 1
    Loop
    Naopako = TempStr
End Function