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??
