CutPaste

'Seleziona tutto' il testo della TextBox
Text1.SelStart=0
Text1.SelLenght = Len(Text1.Text)
'Trova' il testo indicato
Public Sub TrovaTesto(TestodaCercare As String)
    Dim i as Integer
    i = InStr(Text1.SelStart, Text1.Text, TestodaCercare)
    If i = 0 then MsgBox "Elemento non trovato!" : Exit Sub
    Text1.SelStart = i
    Text1.SelLenght = Len(TestodaCercare)
End Sub

'Sostituisci' il testo indicato con altro testo
Public Sub Sostituisci(TestodaCercare As String, TestoSostituto As String)
    Dim i as Integer
    i = InStr(Text1.SelStart, Text1.Text, TestodaCercare)
    If i = 0 then MsgBox "Elemento non trovato!" : Exit Sub
    Text1.SelStart = i
    Text1.SelLenght = Len(TestodaCercare)
    Text1.SelText = TestoSostituto
End Sub

Semplici esempi di codice per implementare funzioni di modifica
in qualsiasi editor di testo. 
(Impostare la proprieta' Multiline della TextBox a TRUE)
Taglia' il testo selezionato

Clipboard.SetText Text1.SelText
Text1.SelText=""
'Copia' il testo selezionato

Clipboard.SetText Text1.SelText
'Incolla' il testo dagli Appunti

Public Sub Incolla()
Dim Dummy1 As String
Dim Dummy2 As String
If Clipboard.GetFormat(vbCFText) Then
Dummy1 = Left(Text1.Text, Text1.SelStart)
Dummy2 = Right(Text1.Text, Len(Text1.Text) - Text1.SelStart)
Text1.Text = Dummy1 & Clipboard.GetText & Dummy2
Else
MsgBox "Il contenuto degli appunti non puo' essere incollato!"
End If
End Sub

'Seleziona tutto' il testo della TextBox

Text1.SelStart=0
Text1.SelLenght = Len(Text1.Text)
'Trova' il testo indicato

Public Sub TrovaTesto(TestodaCercare As String)
Dim i as Integer
i = InStr(Text1.SelStart, Text1.Text, TestodaCercare)
If i = 0 then MsgBox "Elemento non trovato!" : Exit Sub
Text1.SelStart = i
Text1.SelLenght = Len(TestodaCercare)
End Sub

'Sostituisci' il testo indicato con altro testo

Public Sub Sostituisci(TestodaCercare As String, TestoSostituto As String)
Dim i as Integer
i = InStr(Text1.SelStart, Text1.Text, TestodaCercare)
If i = 0 then MsgBox "Elemento non trovato!" : Exit Sub
Text1.SelStart = i
Text1.SelLenght = Len(TestodaCercare)
Text1.SelText = TestoSostituto
End Sub

Semplici esempi di codice per implementare funzioni di modifica
in qualsiasi editor di testo.
(Impostare la proprieta' Multiline della TextBox a TRUE)
Taglia' il testo selezionato