Mehrzeiliges Feld einlesen und splitten

Hallo,
für eine Tabelle muss ein Feld mit mehrzeiligen Inhalt eingelesen werden, beispielhaft so dargestellt:

Abc Test | 1234
Abd Test2 | 31234
Abe Test3 | 14234

Das Feld soll am Pipesymbol gesplittet werden und dann Zeile für Zeile in eine Tabelle geschrieben werden, ich benötige für die Tabelle jedoch nur die Daten auf der rechten Seite der Pipe.

Dim textlist List As String


textlist = doc.vaPPMATKL_Text ' ich versuche das Feld aus dem Dokument in eine Liste einzulesen, Fehler "Type Mismatch"	


Forall items In doc.vaPPMATKL_Text 
SplitOutput =  Split(items,"|")			 							End For

Kann mir jemand weiterhelfen?
(Die Struktur der Tabelle steht im Übrigen schon soweit, es geht nur um das korrekte einlesen)

Es ist ein Textfeld, gearbeitet habe ich mit LS noch nicht viel.
Wie kann ich denn den Type Mismatch umgehen? Liegt es am Feldtyp?

Test gerade mit den Arrays herum, aber es will nicht klappen. Kann mir jemand sagen warum nichts in den textstring (der dann den Inhalt des Arrays enthalten soll) geschrieben wird?

Dim mattexts(0) As String 	
Dim textstring As String 	
mattexts(0) = "doc.vaPPMATKL_Text" 				 				


Dim c As Integer 
For c = Lbound(mattexts) To Ubound(mattexts) 	
If Cstr(doc.GetItemValue(mattexts(c))(0)) <> "" Then					 						textstring  = textstring +  Cstr(doc.GetItemValue(mattexts(c))(0)) 					End If 				Next c