VB.NET怎么删除文本文件中某一行之后的所有内容

我想删除文本文件中某一行之后的所有内容，例如我光标点在RichTextBox1的某位置，怎么删除光标后的所有内容？
 我自己在Button_Click下写了这么个语句：
 Dim i As Integer
        i = RichTextBox1.Focus()
        For i = RichTextBox1.Focus() To RichTextBox1.Lines.Length - 1
            SendKeys.Send("{delete}")
        Next i
但是删的不是全部，只是几行，我要点好多次按钮才可以删除完，求各位帮我改一下以上代码，或告诉我在文本框的删除语句怎么写，谢谢。