There is of course the additional issue that if you are processing the selection, you wouldn't need to use the Range.Find function because you have already found it in order to select it.
Code:
Dim oRng As Range
Set oRng = Selection.Range
oRng.Text = "<start>" & oRng.Text & "<end>"