VB 程序运行出现 Run-time error 340, control array element “3”doesn't exist 求大神解答

Option Explicit
Dim Data() As Single
Private Sub Command1_Click() Priv