vba trim string code example

Example 1: vba trim

Dim s As String
s = "  abc  "
Debug.Print "|" & LTrim(s) & "|"         ' |abc  |
Debug.Print "|" & RTrim(s) & "|"         ' |  abc|
Debug.Print "|" & Trim(s) & "|"          ' |abc|

Example 2: 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