在应用程序中，我们经常遇到一些文本框是禁止录入某些信息的。比如注册窗口，我们必须要填写必要的信息，而在填写的时候又有相应的要求，比如只能输入英文或者数字，字符不能小于8位等等要求。    下面小试牛刀，来禁止某个字符的输入。请留意下面的函数

Public Function ForbitChr(MyTextbox As TextBox, mySymbo As String) As String '在文本里禁止使用某个字符

If CountChr(MyTextbox.Text, mySymbo) > 0 Then

    Select Case MsgBox("不允许输入<" & mySymbo & ">字符。", vbYes, "提示:")

    End Select

    MyTextbox = Replace(MyTextbox.Text, mySymbo, "")

    MyTextbox.SelStart = Len(MyTextbox.Text)

End If

End Function