Splitting the content of a cell based on special characters

[bydo]

Hi guys,

I need help splitting the content of cells onto several columns based on special characters.
Please look at my file attachment, sheet("before") is the data I got, sheet ("after") is the
data I need.

Is this even possible by using vba only?

Hope you guys can help, I'm pretty desperate....

[p45cal]

try: (works on the active sheet)
Sub blah()
Range("A1").CurrentRegion.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Other:=True, OtherChar:="|"
End Sub

[bydo]

Thank you, worked like a charm! I totally forgot the Text to column feature...