Sub BobMango()
Dim myArr, i As Long, bigWord As String
[COLOR=green]' Split activecell's value into an array using spaces as the delimiter[/COLOR]
myArr = Split(ActiveCell.Value, " ")
bigWord = ""
[COLOR=green]' Loop through the array and test if the current word is larger than[/COLOR]
[COLOR=green]' bigWord (initialized as blank). If so, bigWord is set to the[/COLOR]
[COLOR=green]' current word.[/COLOR]
For i = 0 To UBound(myArr)
If Len(myArr(i)) > Len(bigWord) Then
bigWord = myArr(i)
End If
Next i
[COLOR=green]' Display the largest word in the cell via message box[/COLOR]
MsgBox bigWord
End Sub