Liste over filer i mappe

Jeg har fundet en kode der kan vise indholdet af en given mappe.
Problemet er at når jeg tykker på comboboxen første gang vises indholdet rigtigt. men anden gang er indholdet for doblet.
Jeg kan regne ud af man enten skal have loopet til at stoppe
eller listen til at slette hver gang, men jeg ved ikke hvordan.

Private Sub Combobox1_DropButtonClick()

'Files in folder listed in Listbox1
    Dim FSO As Object, fld As Object, Fil As Object
    Dim SubFolderName As String
    Dim i As Integer
    Set FSO = CreateObject("Scripting.FileSystemObject")
    SubFolderName = "c:\Mappe\"
    Set fld = FSO.GetFolder(SubFolderName)
    For Each Fil In fld.Files
        i = i + 1
        Me.ComboBox1.AddItem Fil.Name
       
    Next Fil
   
End Sub