“VBA Eliminar el espacio en blanco líder en la cuerda” Código de respuesta

VBA Eliminar el espacio en blanco líder en la cuerda

Option Explicit
Function trimWhiteSpace(s As String) As String
	Dim RE As Object: Set RE = CreateObject("vbscript.regexp")
	With RE
		.Global = True
		.MultiLine = True
		.Pattern = "^\s*(\S.*\S)\s*"
		trimWhiteSpace = .Replace(s, "$1")
	End With
End Function