वीबीए स्ट्रिंग में प्रमुख रिक्त स्थान निकालें

वीबीए स्ट्रिंग में प्रमुख रिक्त स्थान निकालें

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