Conversion of pipe delimitation text file into excel using vbscript

hmmm use text to column with | delimiter?

assume column A is where the text is

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, OtherChar _
        :="|", FieldInfo:=Array(1, 1)