用vb如何统计文章中英语每个单词的次数～

然后将次数导出到Excel表中，有一百段段落～第二段的时候要和第一段的不同单词要加行。都要统计次数～

 dim s as string
s = file.readalltext(文件名)
var query = s.split(" ").groupby(function(x) x).select(x => new with{.word = x.key, .count = x.count() })
for each item in query
msgbox item.word & "出现了" & item.count & "次"

 dim s as string
s = file.readalltext(文件名)
var query = s.split(" ").groupby(function(x) x).select(function(x) new with{.word = x.key, .count = x.count() })
for each item in query
msgbox item.word & "出现了" & item.count & "次"