主题：显示字符数量包括空格

 改成这样

Dim count As Integer
If e.Checked Then
    count = cst.CheckedIndices.Count
Else
    count = iif(cst.CheckedIndices.Count <= 2, 0, cst.CheckedIndices.Count - 2)
End If
Forms("窗口1").Controls("Label1").Text = "还剩" & 128 - length - count & "个字符"

 不可能不行，我测试ok的，你不是连替换代码都不会吧？

 这段替换原来的 Forms("商品档案窗口").Controls("Label1").Text = "" & 128 - length & ""

Dim count As Integer
If e.Checked Then
    count = cst.CheckedIndices.Count
Else
    count = iif(cst.CheckedIndices.Count <= 2, 0, cst.CheckedIndices.Count - 2)
End If
Forms("窗口1").Controls("Label1").Text = "还剩" & 128 - length - count & "个字符"