主题：[求助]计算数位 然后打开窗口的代码。

Dim tp As Integer
Dim bc As String
bc = Forms("销售").Controls("TextBox产品编码").Value
tp = （计算出 bc 是几位数 ）
If tp = 16
Dim frm As WinForm.Form
frm = Forms("结算")
frm.Open()
End If

求老师帮忙， 需要计算出， bc是几位数， 如果是16位。  那么打开 结算窗口。

 TP那边要用到什么公式。

此主题相关图片如下：qq图片20161219185802.png

老师，代码没问题， 但是TextBox产品编码   这个空间如果是空， 或者开始键入的话，就会跳出上面那个 错误框。