Vba Split String Into Array Byte