كيف اعرف العنصر التالي في المصفوفة

السلام عليكم ورحمة الله

لديا كود يحدد العنصر الحالي في المصفوفة النصية واريد انا اضيف الى العنصر الحالي العنصر التالي من المصفوفة وهذا هو الكود لمعرفة العنصر الحالي

Dim i As Long
Dim MyString As String = FrmDoc.RichTextBox.Text
            Dim Words() As String = MyString.Split(" "c)
For i = 0 To UBound(Words)

                GSQLCmd.Parameters.Clear()
                If Words(i) <> "" Then

                    GSQLCmd.Parameters.Clear()
                    GSQLCmd.Parameters.Add("@Word", SqlDbType.NVarChar).Value = Words(i)

                    GSQLCmd.ExecuteNonQuery()
                End If

                Application.DoEvents()
            Next

وفي هذا الكود انا اضفت العنصر الحالي الى قاعدة البيانات

واريد انا اضيف العنصر الحالي وبجواره العنصر التالي من المصفوفة

بارك الله فيكم وجزاكم الله خير الجزاء