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 & "'>")
            ...........
 
 


 , cuál es la cadena que intentas capturar??
, cuál es la cadena que intentas capturar??

