OOPS!!!
Read your request incorrectly. I first read it as 600 letters.
Here's the correct answer for word count...

Private Sub TextBox1_Change()
Dim iWordCount As Integer

iWordCount = 600

If Len(TextBox1.Value) - Len(Application.WorksheetFunction. _
Substitute(TextBox1.Value, " ", "")) iWordCount - 1 Then
TextBox1.Value = _
Left(TextBox1.Value, Application.WorksheetFunction. _
Find("~", Application.WorksheetFunction. _
Substitute(TextBox1.Value, " ", "~", iWordCount - 1)))
End If

End Sub

--
Hope this helps.
If it does, please click the Yes button.
Thanks in advance for your feedback.
Gary Brown



"Tim" wrote:

I have created a text box but I want the text length to be equal to or less
than 600 words.
How do I do that in Excel 2003 please