[Bug 53767] vbscript fails to handle ReDim when variable is not yet created

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=53767

--- Comment #4 from Jason Millard  ---
Thank you!

I just tried this, but it asserts in interp_dim at the:

assert(array_id < ctx->func->array_cnt);

[vbscript][interp_redim]: L"rolling" 1
[vbscript][interp_dim]: L"rolling"
Assertion failed: (array_id < ctx->func->array_cnt), function interp_dim, file
interp.c, line 1209.

array_id is 1
ctx->func->array_cnt is 1

The code is:

Const tnob = 5 ' total number of balls
ReDim rolling(tnob)