VB扑克牌识别二值化如何改公式

问题遇到的现象和发生背景

问题相关代码，请勿粘贴截图

运行结果及报错内容

我的解答思路和尝试过的方法

我想要达到的结果

在花色中央位置提取颜色值。判断红＆黑色值。如果为白色则是大小王。
如果为红色，在红心的上方位置提取颜色值，如果为红色该花色为“方片”，如果为白色该花色为“红桃”。
判断黑色也是如此。
判断数值多取几个点而已，只有当几个点都不为白色时则为某一数值。