vb中 关于score（1 to a）想设置变量a的问题

我想让score中的 a＝text1.text 运行后显示要求常数表达式 请问我应该怎么更改
Private Sub Command1_Click()
Dim i As Single, aver!, a#
a＝text1.text
Dim score(1 To a) As Single
For i = 1 To a
score(i) = InputBox("请输入第" & i & "个数值")
Next i
end sub

a＝val(text1.text)