Read first character of a string with MS Word VBA then delete it
<p>I have this code that counts the number of characters in a paragraph, and if it is less than <code>x</code> word underlines:</p>

<pre><code>Sub Underline_Header()

  Dim numOfParagraphs As Integer
  numOfParagraphs = ActiveDocument.BuiltInDocumentProperties("NUMBER OF PARAGRAPHS")
  Selection.HomeKey Unit:=wdStory

  For x1 = 1 To numOfParagraphs
    Selection.Paragraphs(1).Range.Select
    char_count = Len(Selection.Paragraphs(1).Range)

    If char_count &lt; 50 Then
      Selection.Font.Underline = True
      'Selection.TypeText Text:="this text" &amp; Selection
    End If

  Selection.MoveDown Unit:=wdParagraph, Count:=1

  Next x1

End Sub
</code></pre>

<p>Instead, I am trying to have the macro read the first character of each paragraph, and if it is a <code>-</code> (minus sign), then that is the condition to trigger the underline. I have tried:</p>

<pre><code> char1 = Left(Len(Selection.Paragraphs(1).Range), 1)
 If char1 = "-" Then
</code></pre>

<p>But nothing happens.
Thanks for any help!</p>