使用VB在Text1中输入一个英语句子,在Text2中显示出句子中有多少个单词!急用!

'假设单词之间就一空格
Private Sub Command1_Click()
Dim num
num = Trim(Text1)
If InStr(num,Space(1)) Then
num = Split(num)
Text2 = UBound(num) + 1
Else
Text2 = "检查text1输入是否合法!"
End If
End Sub
Private Sub Form_Load()
Text1 = "abc efg aa bb asdd dfgfg"
Text2 = ""
End Su