Visual Basic - Problemas con textbox

Como puedo cortar o pegar solamente un texto seleccionado por el usuario dentro de un textbox
es decir mediante un If - end if que si un texto esta seleccionado me permita modificarlo(cortar pegar copiar)

Chaooo espero que me ayuden

Private Sub Copiar_Click()
Clipboard.SetText Text1.SelText
End Sub

Private Sub Cortar_Click()
dim n as string

Call Copiar_Click()
n = Clipboard.GetText
Clipboard.Clear
Call Pegar_Click()
Clipboard.SetText n

End Sub

Private Sub Pegar_Click()
Dim n As Integer
Dim parteizquierda As String, partederecha As String

parteizquierda = Mid(Text1.Text, 1, Text1.SelStart)

n = Len(Text1.Text) - (Text1.SelLength + Text1.SelStart)
partederecha = Right(Text1.Text, n)

Text1.Text = parteizquierda & Clipboard.GetText & partederecha
End sub