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 
      If FileLen(sFile) > 0 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 If
  End With 
End Sub