主题：位数不正确时，自动提醒错误

我想实现的让操作者必须完成18位的数值输入才行。
Dim s As String =Tables("高级一览表").Current("证件号码")

If  e.DataCol.Name = "证件号码" Then
    If s.Length <> 18 Then
        Dim Result As DialogResult
        Result = MessageBox.Show("身份证号码不正确,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
        If result =DialogResult.yes
            e.Cancel = True
        End If
    End If
End If