I grabbed this, $6 --> free. In my school, wifi can be more reliable than service at times lol. What they did was they added an in-app purchase for $6 to remove adds for a year. I think I can deal with the little ad and save $6.
I believe tablenum is being dimmed as a variant since you didn't specify a type, unless that's different in .NET than VB6. Looks like they should be integers too:
Dim tablenum As Integer, var As Integer
And rather than doing the Do...Loop Until 1 = 2, you can just do Do...Loop