Function Viruslp(art, rng) Viruslp = Split(WorksheetFunction.VLookup(art, rng, 2, 0), "*", 3) End Function