Dim R_CapWord as New Regex("\b[A-Z]\w*") Text = R_CapWord.Replace(Text, "$0") ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl