Replace works for xl2000 onward, for all versions

Range("A1").Value = Application.Substitute(Textbox1.Text," ","")

--
Regards,
Tom Ogilvy

"Soniya" wrote in message
...
Hi All,

How could I remove all spaces from a text?

I have a userform with a text box. when the user input
some text there I want to get that text in to my sheet1
A1 removeing all spaes.

for eg. if the text is "This is my text" then A1 should
get "thisismytext"

any help?

TIA

Soniya