求VB程序代码 统计输入的一篇英文文章中的单词数和定冠词the的个数,并将出现的定冠词the全部删除

Dim a As String,b As String,n as integerb = "the"a =text1。textn = 0For i = 1 To Len(a)If InStr(i,a,b) > 0 Theni = InStr(i,a,b) + 3n = n + 1End IfNext itext2。text="文本中共有：" & n & "个the“