统计英文字符串中以各种字母为首的单词数量（单词之间用空格或其他非字母字符分隔）,不区分大小写vb

Question

统计英文字符串中以各种字母为首的单词数量（单词之间用空格或其他非字母字符分隔）,不区分大小写
vb

Answer 1

Option Explicit
Private Sub Command1_Click()
Dim s As String,i As Integer,L As Integer
Dim ch(1 To 26) As Integer,flag As Boolean
Dim s1 As String * 1,j As Integer
s = Text1
flag = True
For i = 1 To Len(s)
s1 = Mid(s,i,1)
If s1 >= "A" And s1 = "a" And s1