Billing software source code in vb6 array ubound