统计字数函数太差

文章的字数统计！

在网上只找到一个可以统计英文文章的函数，如下：

Function WordCount(strInput)
  Dim strTemp
  strTemp = Replace(strInput, vbTab, " ")
  strTemp = Replace(strTemp, vbCr, " ")
  strTemp = Replace(strTemp, vbLf, " ")
  ' 删除字首字尾空格
  strTemp = Trim(strTemp)
  ' 替换为一个空格
  Do While InStr(1, strTemp, "  ", 1) <> 0
   strTemp = Replace(strTemp, "  ", " ")
  Loop
'使用生成数组，再计算数组上界方法统计字数
  WordCount = UBound(Split(strTemp, " ", -1, 1)) +1
End Function

仔细分析一下，显然这个函数只能用来统计英文文章，对于中文是不适合的。中文文章字数的统计，应该怎么办呢？这真是个棘手的问题！