Составить процедуру, подсчитывающую количество слов в текст

Sub CountWordDocument()
MsgBox ActiveDocument.ComputeStatistics(wdStatisticWords)
End Sub

Sub CountWordRange()
MsgBox Selection.Words.Count
End Sub

Sub CountDayFromNewYear()
MsgBox DateDiff("d", #1/1/2009#, Now)
End Sub

Private Sub CommandButton1_Click()
Select Case Day(DateAdd("d", 30, CDate("1 " & ComboBox2.Text & " " & ComboBox1.Text)))
    Case 31
        MsgBox "31 день"
    Case 1
        MsgBox "30 дней"
    Case 2
        MsgBox "29 дней"
    Case 3
        MsgBox "28 дней"
End Select
End Sub
 
Private Sub UserForm_Activate()
Dim i As Integer
For i = 1900 To 3000
    ComboBox1.AddItem i
Next i
For i = 1 To 12
    ComboBox2.AddItem MonthName(i)
Next i
ComboBox1.Text = Year(Date)
ComboBox2.Text = MonthName(Month(Date))
End Sub

dim detali
detali = array("", "шуруп", "гайка", "винт", "гвоздь", "болт")
n = val(inputbox("Введите номер детали (от 1 до 5)"))
if n>0 and n<6 then msgbox "Под номером " & n & " деталь " & detali(n)

A = 30
B = 3.50
C = 5
 
min = val(inputbox("Введите кол-во минут:"))
if min <= A then
  plata = min * B
else
  plata = A*B + (min-A)*C
end if
 
msgbox plata

currRow = 2
Cells(1, 1).Value = "возраст"
Cells(1, 2).Value = "день месяца"
 
For i = 10 To 99
  n1 = i \ 10
  n2 = i Mod 10
  s = n1 ^ 2 + n2 ^ 2
  If i - s < 32 And i - s > 0 Then
    Cells(currRow, 1).Value = i
    Cells(currRow, 2).Value = i - s
    currRow = currRow + 1
  End If
Next i

currRow = 1
M = Val(InputBox("Введите M"))
For i = 10 To 99
  n1 = i \ 10
  n2 = i Mod 10
  s = n1 ^ 2 + n2 ^ 2
  If s Mod M = 0 Then
    Cells(currRow, 1).Value = i
    currRow = currRow + 1
  End If
Next i

txt = "Съешь еще этих мягких французских булок, да выпей пива"
tmpArr = Split(txt, " ")
MsgBox UBound(tmpArr) + 1

txt = "Съешь еще этих мягких французских булок да выпей пива"
txt = txt & " "
Count = 0
For i = 1 To Len(txt) - 1
  If Mid(txt, i, 2) = "а " Then
    Count = Count + 1
  End If
Next i
MsgBox Count

currDate = Date
NY = DateSerial(Year(currDate), 1, 1)
MsgBox DateDiff("d", NY, currDate)