Dim R_CapWord as New Regex("\b[A-Z]\w*")
  
Text = R_CapWord.Replace(Text, "<B>$0</B>")




-----------------------------------------------------------------------------
Copyright 1997-2025 Jeffrey Friedl