将每个字分解出来,放在dictionay对象里,如
str = "asdfepopadf"
set d = CreateObject("Scripting.Dictionary")
for i=1 to len(str)-1
char = mid(str,i,1)
'MsgBox char
if not d.Exists(char) then
d.add char,1
else
d(char) = cint(d(char)) + 1
end if
next
For Each key In d
'MsgBox key & " " & d(key)
next