Sub SelectionInCommentBox()
    Dim rng As Word.Range
    Dim cmt As Word.Comment

    Set rng = Selection.Range
    Set cmt = rng.Comments.Add(rng, "")
    cmt.Edit
End Sub