AH, whoops, lol. This part:
VB Code:
  1. Text1.Text = Replace(desc(List1.ListIndex), vbNewLine, "")
..removes the new lines. Which in turn, makes it all 1 line.
You can remove the "Replace" and just make it this:
VB Code:
  1. Text1.Text = desc(List1.ListIndex)
I had the "Replace" because I didn't set the MutliLine property to true, and it showed squares for the Newline characters..

Phreak