I changed the code as you mentioned:
VB Code:
  1. For i = 0 To ZipArray.GetUpperBound(0)

  2.             LookUpZipCode(strStaticZip, ZipArray(i))

  3.             ListBox1.Items.Add(Format(CalcDistance(), "F").ToString)

  4.         Next

I am still getting the same thing. I know it would make more sense if you could see all the code but there is a lot of code that goes along with this. I still don't understand why there are 6 loops happening and not 5 as it should.