OK, so after some digging and playing with the Eval() function, I've settled on this:
stBody = Eval("""" & Replace(Replace(Me.TestText, "{", """ & [Forms]![Payments Requested].["), "}", "] & """) & """")
With the Me.TestText just being the text box containing:
Project ID: {Project_ID} payment