Cleaning Up Phone Numbers With VBA

I am using VBA to enter customer information into a Microsoft SQL database. I have an excel sheet with thousands of customers listed. I will be using a While loop to process each line of the sheet. Part of the While loop needs to make any format changes necessary before the data moves over to the DB. So here is the issue:

How do I turn the following phone numbers:

(410) 273-9200
910-944-1232
276 623 4254
410 612 1100 Rob
(413) 786-1636 Cindy
1-800-783-4661
304) 842-5491 Sherry

Into a uniform layout? I would prefer ###-###-####

Each of the numbers above is an example from the list I have. There may be more variations (I have over 20 seperate lists to process, with over 10000 customers per list)

I imagine I need some process that will remove all character except numbers and then break the numbers up to add the hyphens back in at the appropriate places.