Código:
Gracias y un saludo. Dim expReg As Regex Dim grupo As Match .......... grupo = expReg.Match(cadena, "\[MAILTO:([\s*\w*]([^\]]*))\]") cadena = expReg.Replace(cadena, "\[MAILTO:([\s*\w*]([^\]]*))\]", "<a href='mailto:" & grupo.Groups(1).Value & "'>") ...........