The Wild Thing

How I can retrieve the character number in a RichTextBox, but not to calculate the 'SPACE' character ?
... and with 'SPACE' character ?

So you want to retrieve the number of characters in a RichTextBox w/wo/ space?

Code:

---

Private Sub Command1_Click()
Dim wspace As String
Dim wospace As String
wspace = Len(RichTextBox1.Text) 'get num with space
wospace = RichTextBox1.Text 'wospace = Text
wospace = Replace(wospace, Chr(32), "") 'replace space with ""
wospace = Len(wospace) 'get num without space
Debug.Print wspace; wospace 'returns text w/wo/ space
End Sub

---