With Selection
Set MyRange = .GoTo(wpsGoToComment, wpsGoToPrevious)
.MoveRight Unit:=wpsWord, Count:=1, Extend:=wpsExtend
If Selection.Comments.Count >= 1 Then
Selection.Comments(1).Range = "this
is Test!"
End If
End With