try this:

vb Code:
  1. Dim strResult As String = Strings.Left(objDoc.Content.Text, Len(objDoc.Content.Text) - 1)