In a listbox, how can you remove the end part of the entry after a string is found?

[n00bie]

In my listbox, some items are being added with VbCrLf.. how can i loop through each listbox entry, search for the first instance of vbcrlf and remove the endpart of the string?

for example - lets say | is a vbcrlf

A very long string.lots. of formats_possible||||||Test
A very long string.lots. of formats_possible|Test

how can i remove the ||||||Test and the |Test??