Sorry there was a typo. If a <> " " not "". Sorry!
Also make sure a and b are string variables.

>A simple way is to disect the string using Mid$
>
>----Start of code----
>For x = 1 to Len(aStringVariable)
> a = Mid$(aStringVariable, x, 1)
> If a <> " " Then
> b = b + a
> End if
>Next x
>
>aStringVariable = b
>
>----End of Code----
>
>There you have it. Hope it helps.