<code>  <font color=#000099>Dim</font> nCount <font color=#000099>As</font> _
  <font color=#000099>Integer</font>
  <font color=#000099>Dim</font> I <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
 
  <font color=#000099>With</font> List1
    <font color=green>' TextBox leeren</font>
    Text1.Text = ""
 
    <font color=green>' Anzahl ListBox-Zeilen</font>
    nCount = .ListCount
 
    <font color=green>' alle Zeilen nacheinander in TextBox schreiben</font>
    <font color=green>' (durch ein CrLf getrennt - also untereinander)</font>
    <font color=green>' ACHTUNG! MutliLine auf True setzen</font>
    <font color=#000099>For</font> I = 0 <font color=#000099>To</font> nCount - _
      1
      Text1.Text = Text1.Text & .List(I) & vbCrLf
    <font color=#000099>Next</font> I
  <font color=#000099>End</font> <font color=#000099>With</font></code>