How to enable Ctrl+C, Ctrl+V, Ctrl+X in a text box (Text1.Text)?

any idea please!

I found something, is correct ?
Code:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

'Ctrl + A
If KeyCode = 65 And Shift = 2 Then '
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
KeyAscii = 0
End If


'Ctrl + C
If KeyCode = 67 And Shift = vbCtrlMask Then
Clipboard.Clear
Clipboard.SetText Text1.SelText
End If


'Ctrl + V
....

End Sub