Public Function mycount(s1 as string, s2 as string) as integer
dim i as integer
dim icount as integer
i=1
DO
if (i>len(s1))then
exit Do
End Do
End if
i=Instr(i,s1,s2,vbtextcompare)
if i then
icount=icount+1
i=i+2
doevents
end if
loop while i
mycount=icount
end function
debug.print mycount("visualbasic","a")

有人能帮我翻译上面每条语句的意思吗?~~~
其中i=i+2为什么是+2,怎么不是应该+1吗?
doevents又是什么意思?
if i then中的i是指i不为假或0的时候成立吗?

这个函数的做用是计算一个字符串在另一个字符串中出现的次数~~求救啊~~

doevents是显示出让程序控制权，也就是说循环遇到词语句会使循环暂停执行一会后继续执行。