For i = 0 To ListBox1.Items.Count - 1 'Anzahl der Einträge ermitteln
      If TextBox1.Text = Nothing Then 'Wenn noch nichts in Textbox ist,
          TextBox1.Text = ListBox1.Items(i) 'nur den Listbox-Eintrag übernehmen
      Else 'Wenn schon was in der Textbox ist
          TextBox1.Text = TextBox1.Text & vbCrLf & ListBox1.Items(i) 'neue 
          ' Zeile und Listbox-Eintrag
      End If
Next

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln