dim startfind,findit,MyPos,wordline
word="1a1a2b2a2as5a5a4a4a8w6wa21231a1231a5a4a12a15a4a2123a45a6231a2343a21a324a32a132132a132a"
findword="a"
//word里有多少个a
wordline=len(word)
MyPos = Instr(1,word,findword)
While MyPos=<wordline and MyPos>0
    If MyPos>0
        findit=findit+1
        startfind=MyPos+1
    EndIf 
    MyPos = Instr(startfind,word,findword)
EndWhile 
MessageBox findit