Code:
'loop counter problem!
For i = 1 To ListSize
Itemname =Browser("MLSListings.com").Page("MLSListings.com").WebList("regions").GetItem(i)
'by the way you can directly select items like this
For i = 0 To ListSize-1
Browser("MLSListings.com").Page("MLSListings.com").WebList("regions").select "#"&i