Autocompletion on A RichTextBox

[KelvinNyota]

My code is working fine when I get the suggestions from the ListView when I click them. The problem is if I type "a" and want "and" as my suggestion from the ListView, it gives me an output like this: aand

How can I solve this error from this code here:

    Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles RichTextBox1.KeyDown
 
        If e.KeyCode = Keys.Tab And ListView1.Visible Then
            RichTextBox1.SelectedText = Mid(ListView1.FocusedItem.Text, wordParts.Length + 1, ListView1.FocusedItem.ToString - wordParts.Length)
            e.SuppressKeyPress = True
            ListView1.Visible = False
 
        ElseIf e.KeyCode = Keys.Tab And Not ListView1.Visible Then
            RichTextBox1.SelectedText = ""
            e.SuppressKeyPress = True
 
        ElseIf e.KeyCode = Keys.Up And ListView1.Visible Then
 
            If ListView1.SelectedIndices.Count <> 0 Then
 
                ListView1.GetItemAt(ListView1.SelectedIndices.Count - 1, True)
            End If
            e.SuppressKeyPress = True
 
        ElseIf e.KeyCode = Keys.Down And ListView1.Visible Then
 
            If ListView1.SelectedIndices.Count <> ListView1.Items.Count - 1 Then
 
                ListView1.GetItemAt(ListView1.SelectedIndices.Count + 1, True)
            End If
            e.SuppressKeyPress = True
 
        ElseIf e.KeyCode = Keys.Left And ListView1.Visible Then
            ListView1.Visible = False
 
        ElseIf e.KeyCode = Keys.Right And ListView1.Visible Then
            ListView1.Visible = False
 
 
        End If
    End Sub