Need separate codes to remove first and last character from cells

hi there!

I have this code to enter a character I want on each cell from a range right in the beginning of cells:
(This case has been set up to show a "{")

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "{" & c.Value
Next
End Sub

And this other code to enter a character at the end:
(This case has been set up to show a "}")

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "}"
Next
End Sub

Now I'd like to have 2 codes, one to remove the character from the beginning, and another one to remove it from the end of cells. Somebody help me, please!!