Function dekodiranje(sText)
    Dim i As Long
    Dim Str As String
    For i = 1 To Len(sText) Step 2
        Str = Str & Chr("&H" & Mid(sText, i, 2))
    Next i
    sText = Str
End Function