Dim AnyWS as New Regex("\s+") Dim LeadingWS as New Regex("^\s+") Target = AnyWS.Replace(Target, " ", -1, LeadingWS.Match(Target).Length) ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl