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