Hola,
Como supongo que tendrás varios elementos, pues es un array, podrías probar con un replace comprobando primero si está en el mensaje y recorriendo el array:
For i = 0 To UBound(elemento)
If InStr(mensaje, "& elemento(" & i & ") &") > 0 Then
mensaje = Replace(mensaje, "& elemento(" & i & ") &", elemento(i))
End If
Next i
Esto te funcionaría incluso si tuvieses varios elementos en un mismo mensaje.
Saludos.