Simple as pie:

Code:
Dim SpaceCount As Long

For x = 1 To Len(Text1.Text)
 If Mid(Text1.Text, x, 1) = " " Then SpaceCount = SpaceCount + 1
Next x
Mind you if there are 2 spaces in a row it will count as 2 words. I'm too lazy to find a way around this.