OK, it's simple.

The code is thousands of lines and nobody here is going to go through it all and figure it out.

Again, if you can get a point you have the exact same chance to lose a point. And the points are random too. They are color-tiered.

White=1
Green=2
Blue=3
...
Diamond=24

Every time you get or lose points it rolls for how many as well as rolling for a Whiff and rolling for a critical.

They all go to the same sub whether it's plus or minus points. That sub doesn't care. The only thing it does is put a minus in front of points if it's negative but it does all the exact same rolls as anything else.

Honestly, I think I'm just being impatient. I think it just needs to run for at least 10% of it's total run-time to even out. That would be 3.3 years in this case. (really).

Also too, I'm not really asking for an answer to my specific code. I'm certain it's not the code. If you can't find an error in the below then you won't find an error in my code because it's the same thing but moreso.

Code:
Sub ChooseRandomEvent
dim nRnd as long

Randomize Timer

Select Case RollDie(44)

Case 1

TakePoints Brains

Case 2

TakePoints Brawn

......

Case 43

GivePoints Brawn

Case 44

GivePoints Brains

End Select