vba remove leading blank space in string
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
