zähler=0
while datei.peek > -1 
  zeile = datei.readline()
  temp = zeile.split("#")
  zähler = zähler +1
  redim class(zähler)
  class(zähler).string1 = temp(0)
  class(zähler).string2 = temp(1)
  ListBox1.Items.Add(class(zähler).string1)
End While
datei.close

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        RichTextBox1.Text = RichTextBox1.Text + class( _
        ListBox1.SelectedIndex).string2
    End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 while datei.peek > -1 
     zeile = datei.readline()
     temp = zeile.split("#")
     if ListBox1.Items.Item(ListBox1.SelectedIndex) = temp(0) then
           richtextbox1.text = richtextbox1.text + listbox1.items.item( _
             listbox1.selectedindex)
          datei.close 
          exit sub
      end if
end while
datei.close
End Sub