I've got the first 2 for you, the third will be a continuuance of the InStr commands looking for the 3rd |.
Field1: IIf(InStr([Test],"|"

,Left([Test],InStr([Test],"|"

-1))
Field2: Mid([Test],InStr(1,[Test],"|"

+1,InStr(InStr(1,[Test],"|"

+1,[Test],"|"

-InStr(1,[Test],"|"

-1)
The third gets tricky with the continuation of the InStr. Maybe someone knows something else.
Field4:Trim(Mid(Right([Test],12),1,9))
Field5:Right([Test],2)
Then you can join the first three fields back together for the full name.
Hope these help.