Change this line
  ListBox1.AddItem .FoundFiles(I)
to this
  ListBox1.AddItem Mid(.FoundFiles(I), InStrRev(.FoundFiles(I), "\") + 1)
To get rid of the path.