<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Combo1_Click()
  <font color=#000099>Dim</font> sFile <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> FN <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> sText <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  sFile = "c:OrgNetGrundDatenTeilBez.TXT"""
 
  <font color=#000099>With</font> Combo1
    .Clear
    <font color=#000099>If</font> Dir(sFile, vbNormal) <> "" <font _
      color=#000099>Then</font>
      FN = FreeFile
      <font color=#000099>Open</font> sFile <font color=#000099>For</font> _
        <font color=#000099>Input</font> <font color=#000099>As</font> #FN
      <font color=#000099>Do</font> <font color=#000099>While</font> <font _
      color=#000099>Not</font> EOF(FN)
        <font color=#000099>Line</font> <font color=#000099>Input</font> #FN, _
        sText
        .AddItem sText
      <font color=#000099>Loop</font>
      <font color=#000099>Close</font> #FN
      <font color=#000099>If</font> .ListCount > 0 <font _
        color=#000099>Then</font> .ListIndex = 0
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>End</font> <font color=#000099>With</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>