Move userform entry to bookmarks with different lengths

[cdrunner]

I have a userform that passes the users entry in one text field to two different named bookmarks in a Word doc. At one bookmark I need the all the data entered, at the second bookmark I need to limited the data displaying on the form to a specific number of characters, 35 to be exact. I have looked at trim but that is for spaces. I don't want to limit the entry at the userform since I need it for one of the two bookmarks. Your guidance is appreciated.

[gmaxey]

Dim oBM As Bookmark
Dim oRng As Range
Set oBM = ActiveDocument.Bookmarks("a")
Set oRng = oBM.Range
oRng.Text = TextBox1.Text
ActiveDocument.Bookmarks.Add "a", oRng
Set oBM = ActiveDocument.Bookmarks("b")
Set oRng = oBM.Range
If Len(TextBox1.Text) >= 35 Then
oRng.Text = Left(TextBox1.Text, 35)
Else
oRng.Text = TextBox1.Text
End If
ActiveDocument.Bookmarks.Add "b", oRng