For i = HdfLst.ListCount - 1 To 0 Step -1
HdfLst.RemoveItem (i)
Next i
şunu ekledim
@benbendedeilem