Access Equiv of XL Evaluate Function

[ayeshamiah]

does any one know of the access equivalent of the Evaluate function.

I am trying to get this to work

Sub makearray()
Dim x As Variant
x = Evaluate("{1,5,9,15,16,17,25,29,30}") 'makes it a variant array

For i = 1 To UBound(x, 1)
MsgBox x(i)
Next
End Sub