Visual Basic - Deseperación total por un caracter misterioso

Por favor alguien me podria indicar como al leer un textbox multilinea y leerlo linea a linea para cargar el valor de cada una de ellas en otro textbox. me sale al final de este la cadena en cuestión y una o dos o tres barras verticales. Un saludo agradecido

Sería algo así
dim v as variant
dim i as integer
for each v in split(textboxM.text,vbcrlf)
i=i+1
textbox(i).text=v
next