Take away spaces in a string

[don2241]

Hi!

How can I trim a string to take away spaces.
For example: "000 000 000 000" I want it to look like "000000000000"
The Trim function only takes away spaces in the begining and the end of the string.

Thanks
/M.

 

[Imhoteb]

Replace("000 000 000 000"," ","&quot

 

[Error7]

Not very ellegant but it works:-

Dim TempString As String, i As Integer
YourString = "000 000 000 000"
TempString = ""

For i = 1 To Len(YourString)
If Mid(YourString, i, 1) <> Chr(32) Then
TempString = TempString & Mid(YourString, i, 1)
End If
Next i

YourString = TempString