SendKeyys command turns off Numlock

[snb]

This is all you need:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Comment Is Nothing Then Target.AddComment
   Target.Comment.Text "snb"
End Sub