nevite nekdo proc me tato funkce nefunguje pise overflow?
Function unpak(text As String) As Variant
unpak = _
(Asc(Mid(text, 1, 1))) + _
(Asc(Mid(text, 2, 1)) * 256) + _
(Asc(Mid(text, 3, 1)) * 256 * 256) + _
(Asc(Mid(text, 4, 1)) * 256 * 256 * 256)
End Function