How to insert before and after text

Could I get some help to combine these two commands?  I'd like to add brackets before AND after the Selected text.. each one of these works by itself but I can't figure out how to get them both working.. 

Sub InsertText()
ActiveShape.Text.Selection.InsertBefore ("{")
ActiveShape.Text.Selection.InsertAfter ("}")

End Sub

I get {}text,  but I want {text}

I think it's losing the active selection after it does the first one,, but I'm not sure how to fix it.   thank you!