Public Sub ListeEinlesen(Liste As ListBox, ByVal sFile As String) 
  Dim F As Integer 
  Dim Eintrag As String 
  With Liste 
    <font color=green>' nur, wenn Datei "sFile" existiert </font>
    If Dir(sFile) <> "" Then 
      <font color=green>' ListBox leeren </font>
      .Clear 
 
      F = FreeFile 
      Open sFile For Input As #F 
      While Not Eof(F) 
        Line Input #F, Eintrag 
        .AddItem Eintrag 
      Wend 
      Close #F 
    End If 
  End With 
End Sub