用VB编程--写一函数，输入一行字符，将此字符串中最长的单词输出。

'比如每个单词都用一个空格分开

Private Sub Command1_Click()
Call max(Text1.Text)
End Sub

Private Sub max(s As String)
v = Split(s, " ")
a = Len(v(0))
For i = 1 To UBound(v)
  If Len(v(i)) >= Len(v(i - 1)) Then
    a = Len(v(i))
    k = i
  Else
    a = Len(v(i - 1))
  End If
Next i
Print v(k)
End Sub