在广州工伤死亡抚恤金如何计算吗？

设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
Min = arr1(1)
For i=2 To 8
If arr1(i)＜Min Then
Next i
Print "最小值是:"; Min
End Sub