Определить максимальное, минимальное и среднее значения в массиве случайных чисел - VB (61733)

Private Sub Command1_Click()
Dim A(19)
For i = 0 To 19
  A(i) = InputBox("Введите 20 чисел ")
Next
Min = A(0)
For i = 0 To 19
  If A(i) < Min Then
    Min = A(i)
  End If
Next
Max = A(0)
For i = 0 To 19
  If A(i) > Max Then
    Max = A(i)
  End If
Next
 
Print "Min="; Min
Print "Max="; Max
 
End Sub