follow the same code what gavio gave in

http://www.vbforums.com/showpost.php...06&postcount=7

and replace

If n <> List1.ListCount - 1 Then Text1.Text = Text1.Text & ", "

with

If n <> List1.ListCount - 1 Then Text1.Text = Text1.Text & " & vbCrLf & "