quote:To split a line, use split MyString = "DRAWINGS|ISOS|ISO-WN119-0002" MyArray = Split(MyString, "|", -1, 1) Msgbox MyArray(0) Msgbox MyArray(1) Msgbox MyArray(2)