How to add bullet in comment using Word VBA?

问题

I want to add bullet in second line.

Public Sub AddComment()
  Selection.Comments.Add Range:=Selection.Range
  With Selection
    .Font.Bold = True
    .TypeText "Test Bold: Bold Text"
    .TypeText "This text has bullet" & vbNewLine
    .TypeText "This is simple text"
  End With 
End Sub

Above code add Font.Bold style in first line. I want to add bullet in second line only. In the third line, there should not have bullet. Can anybody please suggest me?

来源：https://stackoverflow.com/questions/39292065/how-to-add-bullet-in-comment-using-word-vba