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