FreeVBCode code snippet: Binary Put/Get for Strings (with Unicode)