The probable problem is that your score can be a higher value than you have enums to represent it.
What you might want to try is adding this code before the return statement:
score = Math.Min(DirectCast(PasswordScore, integer), score)
At least you'll normalize the value into something that can be used. However, I would refactor the entire method, and probably not use enums the way you're using them.