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).

Código:

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

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"

Gracias Tincho, voy a revisar lo que me dices.