split

codice:
dim array() as String
array=split(stringa,"|")
'a questo punto in array hai
'array(0)=Tergicristalli#60
'array(1)=Pastiglie freni#56
'...

dim i as integer 'se sono + di 32000 gli elementi dell'array usa il tipo long
for i=0 tu ubound(array)
   'qui lavori con il testo contenuto in ogni elemento dell'array
   'puoi usare ancora la split per dividere la stringa
next i