Problem with selected text - RichTextBox

[Stiletto]

y0,
In my app the user can cut, copy and paste text.
I want the Cut button to be enabled only when the user is selecting a text (with Shift), and if the user is not selecting anything i want the button to be disabled.
I've tried this:

Private Sub EditText_Change()
If Len(EditText.SelText) > 0 Then
    Toolbar1.Buttons(11).Enabled = True
    Toolbar1.Buttons(12).Enabled = True
Else
    Toolbar1.Buttons(11).Enabled = False
    Toolbar1.Buttons(12).Enabled = False
End If
End Sub

How can i do that?