Snippet 1:

 Dim ix as Integer: ix=0
 For ix = 0 To List1.ListCount - 1
  If List1.Selected(ix) Then Text2.Text = Text1.Text & List1.List(ix)
 Next ixthis is txt file 