write a program to assign and print array elements using forloop and input box

'15) write a program to assign and print array elements using forloop and input box

Dim x(10)

For i=0 To UBound(x) Step 1
x(i) = InputBox("enter a value","read value")
Next

For j=0 To UBound(x) Step 1
WScript.Echo x(j)
Next