Dim strParts() As String

strParts = Split(MyString,"|")