This code will count the number of words in a memo field when the control has lost the focus. It could also be used on OnUpdate.
Private Sub mmoSecond_LostFocus()
Dim First$ 'Variable to hold memo string
Dim arr As Variant 'Variable to hold string when split (array)
Dim n% 'Variable...