got some assistance and this seems to work for me pretty good
Private Sub Post1_AfterUpdate()
If Len(Me.Post1) > 0 Then
Me.NumChar = Len(Post1) - (Len([Post1]) - Len(Replace([Post1], " ", "")))
Me.NumWord = (Len([Post1]) - Len(Replace([Post1], " ", ""))) + 1
Else
Me.NumChar = 0...