Function dekodiranje(sText)
    Dim abData() As Byte
    Dim i As Long
    Dim Str as String
    Str = sText
    Str = StrConv(abData, vbUnicode)
    sText = Str
End Function