本示例显示选定部分的第一条备注的用户姓名缩写。

If Selection.Comments.Count >= 1 Then
    MsgBox "Comment made by " & Selection.Comments(1).Initial
End If