Public Module Estensioni
    <Extension()> 
    Public Function SostituisciCampo(ByVal testo As String, ByVal campo As String, ByVal valore as Object) As String
        If String.IsNullOrWhiteSpace(campo) Then Return testo
        
        'Aggiungo le parentesi quadre
        Dim espressione As String = "[" & campo & "]"
        'Come indicato da Domenico, aggiungo un ritorno a capo dopo ogni carattere
        'Uso un'espressione regolare per farlo
        Dim ogniCarattere = New Regex("(.)")
        espressione = ogniCarattere.Replace(espressione, "$1\r?\n?")
        'Le parentesi quadre devono avere l'escape per essere trattate letteralmente
        espressione = espressione.Replace("[", "\[").Replace("]", "\]")

        'Adesso eseguo la sostituzione vera e propria
        Return New Regex(espressione).Replace(testo, valore.ToString())
        
    End Function
End Module

Dim risultato As String = testoRtf _
            .SostituisciCampo("nome_field", "Mario") _
            .SostituisciCampo("eta_field", 44) _
            .SostituisciCampo("data_field", DateTime.Now)

Dim risultato As String = testoRtf.SostituisciCampi(New With {
   .nome_field = "Mario",
   .eta_field = 44,
   .data_field = DateTime.Now
})

'------------------------------------------------------------------------------------------------------
'sostituisce tutte le ricorrenze di campo in testo, con valore
'campo deve iniziare con [ e terminare con ], per esempio [c_nome]
'all'interno di campo ci possono essere \r\n
'------------------------------------------------------------------------------------------------------
<System.Runtime.CompilerServices.Extension()>
Public Function SostituisciCampo(testo As String, campo As String, valore As String) As String
  Dim sb As New StringBuilder(36)
  Dim sb1 As New StringBuilder(36)
  Dim index As Integer = -1
  Dim p As Integer = index
  Do
    index = testo.IndexOf("["c, index + 1)
    If Not (index >= 0 AndAlso index < (testo.Length - 1)) Then
      Exit Do
    End If

    p = testo.IndexOf("]"c, index + 1)
    sb.Clear() : sb1.Clear()
    For i As Integer = index To p
      Dim c As Char = testo.Chars(i)
      sb.Append(c)
      If Not Char.IsControl(c) Then sb1.Append(c)
    Next
    If sb1.ToString = campo Then
      testo = testo.Replace(sb.ToString, valore)
    End If
  Loop Until index < 0
  Return testo
End Function

'---------------------------------------------------------------------------------------------
'stessa di prima ma con le espressioni regolari
'---------------------------------------------------------------------------------------------
<System.Runtime.CompilerServices.Extension()>
Public Function SostituisciCampoX(testo As String, campo As String, valore As String) As String
  Dim ogniCarattere As New Regex("(.)")
  campo = ogniCarattere.Replace(campo, "$1\r?\n?")
  campo = campo.Replace("[", "\[").Replace("]", "\]")
  Return New Regex(campo).Replace(testo, valore)

End Function