Private Sub ScriviTxt(Chiave As String, Valore As String, Testo As String) As String
Return Regex.Replace2("^" & Chiave & "\s(.*?)$", Regex.MULTILINE, Testo, Chiave & " " & Valore)
End Sub
appena provato, funziona sia la tua ( molto piu professionale) che la mia funzione,
l'unica differenza che che tu leggi il valore senza lo spazio iniziale, io invece leggo lo spazio iniziale, chiaramente meglio la tua