I think you need to rewrite it like this:


VB Code:
  1. objEntry = s.GetNextEntry
  2.       While Not objEntry Is Nothing
  3.           'Do stuff...
  4.           objEntry = s.GetNextEntry
  5.       End While
EDIT: haha pressed the URL button instead of the code button