主题：求助：窗口控件加入掩码执行错误

各位老师：我在窗口的控件中输入掩码：如下图

此主题相关图片如下：微信图片_20190702172631.png

但执行后出现如下提示：

此主题相关图片如下：微信图片_20190702172639.png

但不加掩码便不会出现，控件的ValueChanged代码如下：

If _UserRoles = "工检3"  Then  '如果登陆者角色为工序检验岗3
Dim cr = Tables("制造质量管理").Current
Dim d As String = cr("发动机号")
Dim bh As String = e.Form.Controls("TextBox5").Text
Dim dr As DataRow = DataTables("制造质量管理").Find("发动机号 = '" & bh & "'")
Dim b As String = e.Form.Controls("TextBox1").Text
Dim dr1 As DataRow = DataTables("车型总成管理").Find("VIN码 = '" & b & "'")
If dr Is Nothing Then  '如果不存在同编号的订单
   cr("发动机号")=e.Form.Controls("TextBox5").Text
   dr1("发动机总成_总成编号")=e.Form.Controls("TextBox5").Text
   dr1("发动机总成_判定")= True
  Else
   MessageBox.Show( "发动机号  " & bh & "  重复,请校核!")     '否则提示你无此权限
End If
End If
请问是不是加入掩码会影响代码的执行吗？怎样才能有掩码但代码执行正常？

请各位老师费心！