vb 从字符串S中 找出最长的单词

给你点提示,:
用LEFT(),MID(),RIGHT()这几个
IF TEMP=" " THEN
MSGBOX "狂晕"
END IF

很简单啊!
我帮你写出来,你真的给我分么?你自己说的啊"只有空格和字符"我默认没有 标点了啊!

Function longest(S As String) As String
Dim p() As String, n As Integer
S = Replace(S, vbCrLf, " ")
p = Split(S, " ")
For i = 0 To UBound(p)
If Len(p(i)) > Len(p(n)) Then n = i
Next
longest = p(n)
End Function

没有标点的话 楼上的正确
Private Sub Command1_Click()
Print longest(text1) ;在窗体上打印出最长的单词
End Sub

Function longest(S As String) As String
Dim p() As String, n As Integer
S = Replace(S, vbCrLf, " ")
p = Split(S, " ")
For i = 0 To UBound(p)
If Len(p(i)) > Len(p(n)) Then n = i
Next
longest = p(n)
End Function
如果要排除标点 要麻烦一点