利用正则表达式来设置最大输入字符长度

        在做机房合作的时候，很多东西都进行了“改革”，听二牛说输入的字符长度限制可以用正则表达式，当然限制字符长度不仅可以用这种方法来写，还有通过设置文本框属性等办法来解决。不过利用正则表达式，我还是没没想到。反正正则表达式都学过了，为什么不能拿过来用呢？让它和我原来的方法比试比试。

一、ascii码小试

之前的代码是利用ascii码来编写的：

'限制输入的字符长度为0-16之间
Private Sub txtcardno_LostFocus()
    If Not Len(txtcardno) = 0 And Len(txtcardno) < 1 Or Len(txtcardno) > 16 Then
        MsgBox "卡号由1-16个字母和数字组成"
        txtcardno.SetFocus
        txtcardno.SelLength = Len(txtcardno.Text)
        End If
End Sub

这样的话，每个窗体的每个文本框都需要写一遍代码，重复，重复，一直重复着，如何把它们封装起来呢？到大神出场了........