VBScript

I know this is might not be the best forum to post in, but is there a quick way (in VBScript) to tell if there is more than one occurance of a "." in a string?

Thanks.

Something like this?:

Code:

---

for x = 1 to len(sString)
  if mid(sString, x, 1) = "." then y = y + 1
  if y > 1 then
    msgbox("YES")
    exit for
  endif
next x

---