[alberto-moyano]

Hola colisteros, estoy tratando de hacer funcionar la siguiente función, no entiendo que puede estar mal, no obtengo error desde el ide y tampoco desde el formulario en prueba, simplemente no hace nada (ni siquiera un mensaje de error).

GAMBAS

Public Sub Menu81_Click() 'borrar todos los espacios >1
 
  Dim s As String
 
  s = File.Name(editorTexto.Tag[sPath])
  s = CustomTrim(s)
 
End
 
Public Function CustomTrim(s As String) As String
 
  Dim sOut As String
 
  sOut = Trim(RTrim(s))
  While InStr(sOut, "  ")
    sOut = Replace(sOut, "  ", " ")
  Wend
 
  Return sOut
 
End

[tincho]

Hola Alberto, probé tu código y funciona bien, es decir retira los espacios dobles y los reemplaza por uno solo.
Tal vez el problema este en el valor inicial de "s"

[alberto-moyano]

Gracias Tincho, voy a revisar lo que me dices.