Hola:
Por si lo que se desea es quitar todos los espacios de una cadena vaya esta función:
Código:
'____________________________________________
Function SinEspacios(cCad)
'Devuelve una cadena sin espacios
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
SinEspacios = Replace(cCad, " ", "")
End Function
Ejemplo:
SinEspacios("X38 S52 -X") 'Devuelve: "X38S52-X"
Un saludo. :)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>