ho provato i codici da te postati...ma non va nessuno dei due....

il primo dà questo errore:

InvalidArgument=Valore di '-1' non valido per 'SelectionLength'.
Nome parametro: SelectionLength


il secondo l'ho messo giù così, ma dovrebbe essere uguale:

codice:
Dim i As Integer

        i = RichTextBox1.SelectionStart
        Do While Char.IsLetterOrDigit(RichTextBox1.Text.Chars(i))


            i = i + 1
        Loop

        'TextBox1.Text = i
        RichTextBox1.SelectionStart = RichTextBox1.GetFirstCharIndexOfCurrentLine()
        RichTextBox1.SelectionLength = i - RichTextBox1.SelectionStart
        RichTextBox2.Text = RichTextBox1.SelectedText
e mi da indice oltre i limiti della matrice....

cosa ne pensate?