Function kodiranje(sText)
    Dim abData() As Byte
    Dim i As Long
    Dim Str As String
    abData = StrConv(sText, vbFromUnicode)
    For i = 0 To UBound(abData)
        Str = Str & Hex(abData(i))
    Next
    sText = Str
End Function