Макрос с подсчетом букв в ячейке.

[Verona12]

Пожалуйста помогите с заданием.Данную тему в институте не проходили,а сделать нужно в обязательном порядке.В интернете нашла лишь оператора Len, но как записать макрос с ним я не знаю.
Слова берутся любые, используется excel 2007.Заранее спасибо всем,кто сможет помочь.
Даны три слова. Определить и вывести слова, которые состоят из пяти букв.

[EducatedFool]

if len(cells(1,1))=5 then msgbox cells(1,1),,"Слово из 5 букв"

Это для проверки слова в первой ячейке листа.
Для двух других ячеек - аналогично.

[IgorGO]

Function FiveCharWord(s As String)
  Dim rs As String, i As Long
  rs = ""
  For i = 0 To UBound(Split(s, " "))
    If Len(Split(s, " ")(i)) = 5 Then rs = rs & Split(s, " ")(i) & " "
  Next
  FiveCharWord = rs
End Function

[Verona12]

EducatedFool, IgorGO огромное спасибо,вы меня просто спасли)))