<code>  <font color=#000099>Dim</font> sFile <font color=#000099>As</font> _
  <font color=#000099>String</font>
  <font color=#000099>Dim</font> sLine <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> lPos <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
 
  <font color=green>' Name der Datei (inkl. Pfad)</font>
  sFile = "c:	empDeineDatei.vbp"
 
  <font color=green>' Datei öffnen</font>
  F = FreeFile
  <font color=#000099>Open</font> sFile <font color=#000099>For</font> <font _
    color=#000099>Input</font> <font color=#000099>As</font> #F
 
  <font color=green>' jetzt zeilenweise auslesen</font>
  <font color=#000099>While</font> <font color=#000099>Not</font> EOF(F)
    <font color=#000099>Line</font> <font color=#000099>Input</font> #F, sLine
 
    <font color=green>' nach letztem Semikolon suchen</font>
    lPos = InStrRev(sLine, ";")
    <font color=#000099>If</font> lPos > 0 <font color=#000099>Then</font>
      <font color=green>' Gefunden - ab in die ListBox</font>
      List1.AddItem Trim$(Mid$(sLine, lPos + 1))
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>Wend</font>
 
  <font color=green>' Datei wieder schliessen</font>
  <font color=#000099>Close</font> #F</code>