Count characters in each word of a cell

Try this (see attachment)

for B2: =IF(LEN(TRIM(B1))=0,0,LEN(TRIM(B1))-LEN(SUBSTITUTE(B1," ",""))+1)

Used a vba to gather each word length

Function FindWord(Source As String, Position As Integer)
'Update 20131202
Dim arr() As String
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
    FindWord = ""
Else
    FindWord = arr(Position - 1)
End If
End Function

For B3: =LEN(findword(B1,1))&","&LEN(findword(B1,2))&","&LEN(findword(B1,3))&","&LEN(findword(B1,4))&","&LEN(findword(B1,5))