VB编一子过程MaxLength(s,MaxWord)，在字符串s中，找出最长单词MaxBox。s只含有字母和空格，空格分隔单词

希望不是在浪费时间!!

Private Sub Command1_Click()
maxlength Text1, "maxword"
End Sub
Sub maxlength(ByVal s As String, ByVal maxword As String)
Dim myword
myword = Split(s, " ")
maxword = myword(0)
For Each Item In myword
If Len(maxword) < Len(Item) Then maxword = Item
Next
MsgBox "最长单词:" & maxword
End Sub