Vba Split String Into Array Bytesim