Пересчитать вектор N размерности k no правилу: Ni=Ni+Ni+1, при i < k - VB

Private Sub Command1_Click()
    Dim N, i As Integer, k As Integer
    
    N = Array(1, 2, 3, 4, 5, 6, 7, 8)
    k = Ubound(N)
 
    Print "Исходный массив "
    For i = 0 To k
      Print N(i); vbTab;
    Next i
    
    i = 0
    Do While i < k
          N(i) = N(i) + N(i) + 1
          i = i + 1
    Loop
    
    Print
    Print "Результат "
    For i = 0 To k
        Print N(i); vbTab;
    Next i
    
End Sub