Quote Originally Posted by MarkT View Post
all you really need is

lstZip.AddItem Format(oXLSheet.Cells(i, 22), "00000")

No if statement needed

Only problem with this is the Canadian zip codes now that i think about it.

that format is more like V2X 8G1 < BC zipcode

So that would be a problem.



Also, having some trouble with your code for sorting. Some of the fields in distance will not be numbers. but the word "Unknown"

until i can get time to update the database with that zipcodes coordinates.

Also all the distances can have different lengths before the decimal place..but always only 2 spots after the decimal place.
e.g.

23.92
120.82
53.77
8723.09

messing around with the code seeing if i can get it to work for me better