Read All Extensions in A Directory

I wrote this for someone who needed to know how to read in all the file extensions in a directory and keep updating it when changing directories. It uses InStr to find the "." and then does a bubble sort (not efficient I know).