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