Visual Basic 6 - taglia copia e incolla

Ciao a tutti. Volevo sapere qual'era il codice delle funzioni taglia copia e incolla.
Ecco il mio codice, cosa dbaglio?

Text1.SelText = Cut
Text1.SelText = Copy
Text1.SelText = Paste

Inoltre volevo sapere il codice per il comando trova.

Ciao gaffre,
prova in questo modo

Private Sub mnuModTaglia_Click()
    If TypeOf Screen.ActiveControl Is TextBox Then
    'Elimina il contenuto degli Appunti:
        Clipboard.Clear
    'Copia il testo selezionato negli Appunti:
        Clipboard.SetText Screen.ActiveControl.SelText
    'Elimina il testo selezionato:
        Screen.ActiveControl.SelText = ""
    End If
End Sub

Private Sub mnuModCopia_Click()
'Elimina il contenuto degli Appunti:
    Clipboard.Clear
'Copia il testo selezionato negli Appunti:
    Clipboard.SetText Screen.ActiveControl.SelText

End Sub

Private Sub mnuModIncolla_Click()
'Incolla il testo degli Appunti nel controllo attivo:
     Screen.ActiveControl.SelText = Clipboard.GetText()
End Sub

Private Sub mnuModElimina_Click()
' Elimina il testo selezionato.
   Screen.ActiveControl.SelText = ""
End Sub

no non funge

Come non funziona, cosa succede ?
Hai modificato il codice (si tratta di VB6)?

Si è vb6, e ho modificato il codice dove semplicemente mettendo Text1 invece che il nome che gli hai assegnato tu. Ora riprovo e casomai ti posto l'errore.

Forse può andare bene un SendKeys:

'Taglia il testo selezionato
Text1.SetFocus
SendKeys "^{X}"

'Copia il testo in text1
Text1.SetFocus
SendKeys "^{C}"

'Incolla Il Testo in text1
Text1.SetFocus
SendKeys "^{V}"

grazie funge ora.
invece per trovare una determinata parola in un textBox?

devi usare la funzione Instr

dim I as integer
dim Parola as string
Parola = "ciao"
I = InStr(I, text1.text, Parola)
if I > 0 then
text1.selstart = I -1
text1.SelLength = len(Parola)
I = I + 1
else
I = 1
msgbox "Parola non Trovata"
end if 

Private Sub Form_Load()
I = 1
End Sub

Questo codice l'ho fatto sul momento (nn l'ho provato)forse darà errore...
cmq la sintassi di Instr è

Instr(1, TestoDoveCercare, ParolaDaCercare)