Excel Text To Array Function In Vba