Vba Split String Into Array Byte To Image