just use my code and add this:

VB Code:
  1. for a = 0 to ubound(matches)

  2.     if matches(a) = 4 then

  3.         msgbox list1.list(a) & " appears 4 times."

  4.     end if

  5. next a