Найти сумму трех максимальных из десяти чисел - VB

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

Дан массив из десяти целых двузначных чисел. Найти сумму трех максимальных из них.

я вообще не понял как там задавать массив, пример смотрел все равно не понял, помогите плиз!!! вот пример есть

Проект, в котором пользователем задается размер массива, заполняется массив случайными числами и вычисляется максимальный элемент.

Dim a() As Single
Dim i, n As Integer
Dim k As String
Dim Max As Single
 
Private Sub Command1_Click()
n = Val(Text1.Text)
ReDim a(1 To n)
Randomize Timer
For i = 1 To n                                                                                                                                                        
a(i) = Int(101 * Rnd())                                                                                               
Text2.Text = Text2.Text + "" + Str(a(i))
Next i
End Sub
 
Private Sub Command2_Click()
Max = a(1)
For i = 2 To n
  If a(i) > Max Then
     Max = a(i)
  End If
Next i
Text3.Text = Str(Max)
                End Sub

Решение задачи: «Найти сумму трех максимальных из десяти чисел»

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

                            Private Sub Command1_Click()
Randomize
'Объявляем переменные
Dim a() As Single, n As Byte, temp, txt
Dim sum As Single, i As Byte, j As Byte
'Задаём размерность
n = InputBox("n")
ReDim a(1 To n)
'Заполняем массив случайными величинами
For i = 1 To n
    a(i) = Int(100 * Rnd)
    txt = txt & a(i) & " "
Next i
'Сортируем по убыванию (метод пузырька)
For i = 1 To n
    For j = 1 To n - i
        If a(j) < a(j + 1) Then
            temp = a(j)
            a(j) = a(j + 1)
            a(j + 1) = temp
        End If
    Next j
Next i
'Берём 3 первых элемента
sum = a(1) + a(2) + a(3)
MsgBox "Array = " & txt & Chr(13) & "Maximum = " & sum
End Sub
                        