Борюсь с числовыми последовательностями - VB

Формулировка задачи:

Задачка была такая: 1) Обработка числовой последовательности с заданным количеством элементов. В числовую переменную последовательно вводятся N натуральных k-значных чисел. Найти сумму цифр каждого числа последовательности. Я её практически решила, только никак не могу сделать так, чтобы была последовательность (там надо применить Rnd). Помогите, Люди добрые!

Private Sub Command1_Click()
Dim N As Integer, i As Integer
Dim a As Single
Dim c As Single
Dim P As String, K As String
Text1.Text = "": Text2.Text = ""
P = InputBox("Сколько чисел?", "Количество чисел")
N = Val(P)
a = 0
For i = 1 To N
    K = InputBox("Введите" + Str(i) + "число и нажмите кнопку <OK>", "Ввод очередного числа")
Text1.Text = Text1.Text + K + Chr(13) + Chr(10)
a = a + Val(K)
Next i
c = Val(Text1.Text)
tisach = c \ 1000
sotni = (c - tisach * 1000) \ 100
des = (c - (tisach * 1000 + sotni * 100)) \ 10
ed = c Mod 10
 a = tisach + sotni + des + ed
 Text2.Text = a
 End Sub

А с массивами у меня вообще завал! Ничего не выходит! 2) Обработка одномерных массивов. Дан массив из N целых чисел. Циклически сдвигая его элементы вправо, поместит первый из максимальных на последнее место.

Решение задачи: «Борюсь с числовыми последовательностями»

textual
                            Листинг программы 
                        

                            Dim Arr(1 To N) As Double
 
'Ищем первый максимальный элемент
Dim i1stMax As Long
Dim d1stMax As Double
Dim i As Long
 
i1stMax = 1
d1stMax = Arr(1)
 
For i = 2 To N
    If Arr(i) > d1stMax Then
        i1stMax = i
        d1stMax = Arr(1)
    End If
Next i
 
Dim iShift As Long  'Фактор сдвига
iShift = N - i1stMax
While iShift > 0
    ' Сдвигаем циклически на 1 вправо
    Dim dN As Double
    dN = Arr(N)
    For i = N To 2 Step -1
        Arr(i) = Arr(i - 1)
    Next i
    Arr(1) = dN
    iShift = iShift - 1
Wend
                        