Dim R As Regex = New Regex _ ("\b " & _ "(?# Capture the address to $1 . . . ) " & _ "( " & _ " \w[-.\w]* (?# username) " & _ " @ " & _ " [-\w]+(\.[-\w]+)*\.(com|edu|info) (?# hostname) " & _ ") " & _ "\b", _ RegexOptions.IgnoreCase Or RegexOptions.IgnorePatternWhitespace) text = R.Replace(text, "${1}") ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl