判斷字符串中相同字符的個數

　　判斷字符串中相同字符的個數
 =============================
 函 數 名GetCount
 作    用判斷字符串中相同字符的個數
 參    數
 ==============================
 Private Function GetCount(StrsWord)
  Dim NNN
  N=Len(Strs)
  N=Len(Replace(StrsWord""))
  N=Len(Word)
  GetCount=Clng(((NN)/N))
 End Function

From:http://tw.wingwit.com/Article/program/net/201311/14365.html