Код:
dim array(), bAgain, i
i = 0
bAgain = true
Do
val = Inputbox("Введите a("&i&")")
if val = Empty or val = Null or val = "" or IsNumeric(val) = false then
bAgain = false
else
MsgBox ("val:" & val & vbcrlf & "type: " & typename(val))
Redim Preserve array(i+1)
array(i)=eval(val)
i=i+1
end if
Loop While ( bAgain )
Можно так, хотя можно и оптимизировать (либо наоборот, усложнить: делать проверку на мусорный код с повторным вводом)
