Added VB code to choose save location

Reverted to original data sort order