例子代码：综合输入过滤、校验、修正与提示（文本、数字、时间、邮政编码等） New!

Public Function FilterInput(ByRef objInputBox As Object, _
                            ByVal intKeyAscii As Integer, _
                            Optional ByVal udtInputType As enumInputType = itNumeric, _
                            Optional ByVal strKeyCodeRange As String = "0-9", _
                            Optional ByVal blnSmallNumber As Boolean = False, _
                            Optional ByVal intMaxLength As Integer = 0, _
                            Optional ByVal blnShowMsg As Boolean = False _
                            ) As Integer
'************************************************************************
'*
'* ¹¦ÄÜ£ºÏÞÖÆÊäÈë£¬¹ýÂË·Ç·¨×Ö·û/°´¼ü£¬Ö§³ÖÊý×Ö¡¢ÎÄ±¾¡¢ÈÕÆÚ¡¢Ê±¼ä¡¢ÓÊÕþ±àÂë¡¢Éí·ÝÖ¤µÈ¡£
'* ÊäÈë£ºobjInputBox           - ÊäÈë¶ÔÏó£¨Ö§³ÖTextBox¡¢ComboBoxµÈ£©
'*       intKeyAscii           - ÊäÈë×Ö·û/°´¼ü
'*       udtInputType(¿ÉÑ¡)    - ÊäÈëÀàÐÍ
'*       strKeyCodeRange(¿ÉÑ¡) - ÔÊÐí×Ö·û·¶Î§
'*       blnSmallNumber(¿ÉÑ¡)  - ÊÇ·ñÔÊÐíÐ¡Êýµã
'*       intMaxLength(¿ÉÑ¡)    - ÊäÈë³¤¶È
'*       blnShowMsg(¿ÉÑ¡)      - ÊÇ·ñÏÔÊ¾ÌáÊ¾
'* ·µ»Ø£ºÈç¹ûÊäÈëÎªºÏ·¨×Ö·û£¬Ö±½Ó·µ»Ø¸ÃÖµ£¬·´Ö®£¬·µ»Ø¿ÕÖµ(0)
'*
'* Ô¼¶¨£º·¶Î§·ûºÅÎª¡°-¡±£¬·Ö¸ô·ûºÅÎª¡°|¡±£¬ºÏ·¨Àý×Ó£º "a-z|.|0-9|,|A-Z|~"
'*
'* ×îºóÐÞ¸Ä£ºUnruled Boy @ 1/12/2002
'*
'*************************************************************************    Dim o_strRet() As String
    Dim o_strText As String
    Dim o_strRange As String
    Dim o_intItems As Integer
    Dim o_intRet As Integer
    Dim o_intKeyAscii As Integer
    'Dim o_blnRet As Boolean
    Dim o_udtErrorType As enumErrorType

    o_udtErrorType = etDefault '³õÊ¼»¯´íÎó£ºÎÞ

    With objInputBox
        Select Case TypeName(objInputBox)
                Case "TextBox", "RichTextBox"
                    If .MaxLength > 0 Then 'Èç¹ûÓÐ×î´ó³¤¶ÈÏÞÖÆ£¬Ê¹ÓÃÈ±Ê¡
                        If intMaxLength = 0 Then
                            intMaxLength = .MaxLength
                        Else
                            If intMaxLength > .MaxLength Then
                                intMaxLength = .MaxLength
                            Else

                            End If
                        End If
                    Else

                    End If
                Case Else

        End Select

        o_strText = .Text

    End With

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

'¿´Ä¿Ç°³¤¶ÈÊÇ·ñ³¬Ô½ÏÞÖÆ³¤¶È£¬Èç¹ûÊÇ£¬ÌáÊ¾£¬ÊäÈëÎÞÐ§
    If intMaxLength > 0 And Len(o_strText) >= intMaxLength Then

        Select Case intKeyAscii
                Case vbKeyDelete, vbKeyBack 'É¾³ýÓë»ØÍË
                    o_intKeyAscii = intKeyAscii
                Case Else
                    Select Case TypeName(objInputBox)
                            Case "TextBox", "RichTextBox"
                                If objInputBox.SelLength > 0 Then 'Èç¹ûÓÐÑ¡ÖÐÎÄ±¾
                                    o_intKeyAscii = intKeyAscii
                                Else
                                    Beep
                                    o_udtErrorType = etMaxLength
                                    o_intKeyAscii = 0
                                End If
                            Case Else
                                Beep
                                o_udtErrorType = etMaxLength
                                o_intKeyAscii = 0
                    End Select
        End Select
    Else
'ÏÈ´¦ÀíÌØÊâ·ûºÅ
        Select Case intKeyAscii
                Case vbKeyDelete, vbKeyBack 'É¾³ýÓë»ØÍË
                    o_intKeyAscii = intKeyAscii

                Case vbKeyDecimal, 190 'Êý×Ö£ºÐ¡Êýµã
                    If udtInputType = itNumeric And blnSmallNumber Then
                        o_intKeyAscii = intKeyAscii
                    Else
                        o_udtErrorType = etInvalid
                        o_intKeyAscii = 0
                    End If

                Case vbKeySubtract, vbKeyDivide, 45 'ÈÕÆÚ×Ö·û£º-¡¢/
                    If udtInputType = itDate Then
                        o_intKeyAscii = intKeyAscii
                    ElseIf udtInputType = itNumeric Then
                        If Len(o_strText) = 0 Then
                            o_intKeyAscii = intKeyAscii
                        Else
                            o_udtErrorType = etInvalid
                            o_intKeyAscii = 0
                        End If
                    Else
                        o_udtErrorType = etInvalid
                        o_intKeyAscii = 0
                    End If

                Case Asc(":") 'Ê±¼ä×Ö·û£º:
                    If udtInputType = itTime Then
                        o_intKeyAscii = intKeyAscii
                    Else
                        o_udtErrorType = etInvalid
                        o_intKeyAscii = 0
                    End If

                Case Else

                    'o_blnRet = False

                    o_strRange = strKeyCodeRange

                    If o_strRange <> vbNullString Then

                        o_intItems = 0

                        'Ñ»·È¥µô×ó±ßºÍÓÒ±ßµÄ·Ö¸ô·ûºÅ£¨"|"£©
                        Do While o_intItems < Len(o_strRange)
                            If Left(o_strRange, 1) = "|" Then
                                o_strRange = Right(o_strRange, _
                                                    Len(o_strRange) - 1)
                            ElseIf Right(o_strRange, 1) = "|" Then
                                o_strRange = Left(o_strRange, _
                                                    Len(o_strRange) - 1)
                            Else
                            End If

                            o_intItems = o_intItems + 1
                        Loop

                        '½âÊÍ×éºÏ²ÎÊý
                        o_strRet() = Split(o_strRange, "|")
                        For o_intItems = LBound(o_strRet) To UBound(o_strRet)
                            o_intRet = InStr(o_strRet(o_intItems), "-")
                            If o_intRet <> 0 Then
                                If intKeyAscii >= Asc(Left(o_strRet(o_intItems), o_intRet - 1)) _
                                        And intKeyAscii <= Asc(Right(o_strRet(o_intItems), Len(o_strRet(o_intItems)) - o_intRet)) Then
                                    o_intKeyAscii = intKeyAscii
                                    Exit For
                                End If
                            Else
                                If intKeyAscii = Val(o_strRet(o_intItems)) Then
                                    'o_blnRet = True
                                    o_intKeyAscii = intKeyAscii
                                    Exit For
                                Else
                                End If
                            End If
                        Next

                        If o_intKeyAscii = 0 Then
                            o_udtErrorType = etRange
                        Else
                        End If

                    Else
                        o_intKeyAscii = intKeyAscii
                    End If        End Select

    End If
If o_udtErrorType <> etDefault Then 'Èç¹û½á¹ûÓÐ´í£¬¸ù¾Ý´íÎóÀàÐÍ£¬ÌáÊ¾

        If blnShowMsg Then
            Select Case o_udtErrorType
                    Case etRange
                        MsgBox "ÊäÈëµÄ[·¶Î§]²»·ûºÏÒªÇó¡£" & _
                                "ºÏ·¨µÄÊäÈë·¶Î§Îª£º" & _
                                Replace(o_strRange, "|", "£¬") & "¡£", _
                                vbInformation
                    Case etMaxLength
                        MsgBox "ÊäÈëµÄ[³¤¶È]²»·ûºÏÒªÇó¡£" & _
                                "ÒªÇóÊäÈë×î´ó³¤¶ÈÎª£º " & _
                                CStr(intMaxLength), vbInformation
                    Case etInvalid
                        MsgBox "ÊäÈë×Ö·û²»·ûºÏÒªÇó£¬Çë¼ì²éÄúµÄÊäÈëÊÇ·ñºÏ·¨¡£" & _
                                "ÌáÊ¾£ººÏ·¨µÄÊäÈë·¶Î§Îª£º" & _
                                Replace(o_strRange, "|", "£¬") & "¡£", _
                                vbInformation
                    Case Else

            End Select

        Else

        End If
    Else

    End If

    FilterInput = o_intKeyAscii

    Exit Function


handleError:
    FilterInput = 0
    If blnShowMsg Then
        MsgBox "ÔÚ¹ýÂËµÄ¹ý³ÌÖÐ³öÏÖÒÔÏÂ´íÎó£º" & vbCrLf _
                 & Err.Description
    Else
    End If
    On Error GoTo 0

End Function
以上是主函数（输入过滤）代码比较长，请原谅。Public Function ValidateNumber(ByRef objInputBox As Object, _
                              ByVal curMinNum As Currency, _
                              ByVal curMaxNum As Currency, _
                              Optional ByVal intMaxLength As Integer = 0, _
                              Optional ByVal blnCanBeEmpty As Boolean = False, _
                              Optional ByVal blnShowMsg As Boolean = False _
                              ) As enumErrorType
'********************************************
'*
'* ¹¦ÄÜ£ºÐ£ÑéÊäÈë£¨Êý×Ö£©
'* ÊäÈë£ºobjInputBox        - ÊäÈë¶ÔÏó£¨Ö§³ÖTextBox¡¢ComboBoxµÈ£©
'*       curMinNum          - ÔÊÐí×îÐ¡Öµ
'*       curMaxNum          - ÔÊÐí×î´óÖµ
'*       intMaxLength(¿ÉÑ¡) - ÊäÈë³¤¶È
'*       blnCanBeEmpty(¿ÉÑ¡)- ÊÇ·ñÔÊÐí¿ÕÖµ
'*       blnShowMsg(¿ÉÑ¡)   - ÊÇ·ñÏÔÊ¾ÌáÊ¾
'* ·µ»Ø£ºÈç¹ûÊäÈëÖµºÏ·¨£¬·µ»ØTrue£¬·´Ö®£¬False
'*
'* ×îºóÐÞ¸Ä£ºUnruled Boy @ 1/11/2002
'*
'********************************************

On Error GoTo handleError

    Dim o_strText As String
    Dim o_lngNumber As Currency
    Dim o_udtErrorType As enumErrorType

    o_udtErrorType = etDefault '³õÊ¼»¯´íÎó£ºÎÞ

    With objInputBox

        Select Case TypeName(objInputBox)
                Case "TextBox", "RichTextBox"
                    If .MaxLength > 0 Then 'Èç¹ûÓÐ×î´ó³¤¶ÈÏÞÖÆ£¬Ê¹ÓÃÈ±Ê¡
                        If intMaxLength = 0 Then
                            intMaxLength = .MaxLength
                        Else
                            If intMaxLength > .MaxLength Then
                                intMaxLength = .MaxLength
                            Else

                            End If
                        End If
                    Else

                    End If
                Case Else

        End Select

        o_strText = .Text

        '¿´Ä¿Ç°³¤¶ÈÊÇ·ñ³¬Ô½ÏÞÖÆ³¤¶È£¬Èç¹ûÊÇ£¬ÌáÊ¾£¬ÊäÈëÎÞÐ§
        If intMaxLength > 0 And Len(o_strText) > intMaxLength Then

            o_udtErrorType = etMaxLength

        Else
            If o_strText <> vbNullString Then
                If IsNumeric(o_strText) Then
                    o_lngNumber = CCur(o_strText)
                    If o_lngNumber < curMinNum Or o_lngNumber > curMaxNum Then
                        On Error Resume Next
                        .SetFocus
                        On Error GoTo 0
                        o_udtErrorType = etRange
                    Else
                        o_udtErrorType = etDefault
                    End If
                Else
                    o_udtErrorType = etInvalid
                End If
            Else
                If Not blnCanBeEmpty Then
                    o_udtErrorType = etEmpty
                Else

                End If
            End If
        End If

        If o_udtErrorType <> etDefault Then 'Èç¹û½á¹ûÓÐ´í£¬¸ù¾Ý´íÎóÀàÐÍ£¬ÌáÊ¾
            On Error Resume Next
            .SetFocus
            On Error GoTo 0

            If blnShowMsg Then
                Select Case o_udtErrorType
                        Case etRange
                            MsgBox "ÊäÈëÖµ[·¶Î§]²»·ûºÏÒªÇó¡£" & vbCrLf & _
                                    "ÒªÇóÊäÈë·¶Î§Îª£º " & curMinNum & _
                                    " µ½ " & curMaxNum, vbInformation
                        Case etMaxLength
                            MsgBox "ÊäÈëÖµ[³¤¶È]²»·ûºÏÒªÇó¡£" & _
                                    "ÒªÇóÊäÈë³¤¶ÈÎª£º " & _
                                    CStr(intMaxLength), vbInformation
                        Case etInvalid
                            MsgBox "ÊäÈëÒªÇóÈ«²¿ÎªÊý×Ö(°üÀ¨¡°.¡±)¡£" & vbCrLf & _
                                    "Çë¼ì²éÊäÈëµÄÊÇ·ñÓÐ·ÇÊý×Ö·ûºÅ¡£" _
                                    , vbInformation
                        Case etEmpty
                            MsgBox "ÊäÈë²»ÄÜÎª¿ÕÖµ¡£" & vbCrLf & _
                                    "Äú±ØÐë°´ÒªÇóÊäÈëÊý×Ö" _
                                    , vbInformation
                        Case Else

                End Select
            Else

            End If
        Else

        End If

    End With

    ValidateNumber = o_udtErrorType

    Exit Function


handleError:
    ValidateNumber = etUnknown
    If blnShowMsg Then
        MsgBox "ÔÚÐ£ÑéÊý×ÖµÄ¹ý³ÌÖÐ³öÏÖÒÔÏÂ´íÎó£º" & vbCrLf _
                 & Err.Description
    Else
    End If
    On Error GoTo 0

End Function
Public Function ValidateText(ByRef objInputBox As Object, _
                              ByVal strForbiddenChars As String, _
                              Optional ByVal strSplitChar As String = "|", _
                              Optional ByVal strReplaceChar As String = vbNullString, _
                              Optional ByVal blnAuthReplace As Boolean = False, _
                              Optional ByVal intMaxLength As Integer = 0, _
                              Optional ByVal blnCanBeEmpty As Boolean = False, _
                              Optional ByVal blnShowMsg As Boolean = False _
                              ) As enumErrorType
'********************************************
'*
'* ¹¦ÄÜ£ºÐ£ÑéÊäÈë£¨×Ö·û£©
'* ÊäÈë£ºobjInputBox          - ÊäÈë¶ÔÏó£¨Ö§³ÖTextBox¡¢ComboBoxµÈ£©
'*       strForbiddenChars    - ÔÊÐí×î´óÖµ
'*       strSplitChar¡¡¡¡¡¡   - ·Ö¸î×Ö·û
'*       strReplaceChar(¿ÉÑ¡) - Ìæ»»×Ö·û
'*       blnAuthReplace(¿ÉÑ¡) - ÊÇ·ñ×Ô¶¯Ìæ»»×Ö·û
'*       intMaxLength(¿ÉÑ¡)   - ÊäÈë³¤¶È
'*       blnCanBeEmpty(¿ÉÑ¡)  - ÊÇ·ñÔÊÐí¿ÕÖµ
'*       blnShowMsg(¿ÉÑ¡)     - ÊÇ·ñÏÔÊ¾ÌáÊ¾
'*
'* ·µ»Ø£ºÈç¹ûÊäÈëÖµºÏ·¨£¬·µ»ØTrue£¬·´Ö®£¬False
'*
'* ×îºóÐÞ¸Ä£ºUnruled Boy @ 1/11/2002
'*
'********************************************

On Error GoTo handleError

    Dim o_strRet() As String
    Dim o_strText As String
    Dim o_intItems As Integer
    Dim o_intItems2 As Integer
    Dim o_intPos As Integer
    Dim o_intPos2 As Integer
    Dim o_intLen As Integer
    Dim o_udtErrorType As enumErrorType

    o_udtErrorType = etDefault '³õÊ¼»¯´íÎó£ºÎÞ

    With objInputBox

        Select Case TypeName(objInputBox)
                Case "TextBox", "RichTextBox"
                    If .MaxLength > 0 Then 'Èç¹ûÓÐ×î´ó³¤¶ÈÏÞÖÆ£¬Ê¹ÓÃÈ±Ê¡
                        If intMaxLength = 0 Then
                            intMaxLength = .MaxLength
                        Else
                            If intMaxLength > .MaxLength Then
                                intMaxLength = .MaxLength
                            Else

                            End If
                        End If
                    Else

                    End If
                Case Else

        End Select

        o_strText = .Text


        '¿´Ä¿Ç°³¤¶ÈÊÇ·ñ³¬Ô½ÏÞÖÆ³¤¶È£¬Èç¹ûÊÇ£¬ÌáÊ¾£¬ÊäÈëÎÞÐ§
        If intMaxLength > 0 And Len(o_strText) > intMaxLength Then

            o_udtErrorType = etMaxLength

        Else

            If o_strText <> vbNullString And strForbiddenChars <> vbNullString Then

                o_intItems2 = 0

                o_intPos2 = Len(o_strText)
                o_intLen = 0

                o_strRet() = Split(strForbiddenChars, strSplitChar)

                For o_intItems = LBound(o_strRet) To UBound(o_strRet)
                    o_intPos = InStr(o_strText, o_strRet(o_intItems))
                    If o_intPos > 0 And o_intPos < o_intPos2 Then 'µÚÒ»¸ö³öÏÖÎ»ÖÃ
                        o_intPos2 = o_intPos
                        o_intLen = Len(o_strRet(o_intItems))
                    End If

                    If o_intPos <> 0 Then

                        If blnAuthReplace Then
                           o_strText = Replace(o_strText, _
                                                o_strRet(o_intItems), _
                                                strReplaceChar)
                           o_udtErrorType = etModified
                        Else
                            o_udtErrorType = etInvalid
                        End If
                    Else
                        o_intItems2 = o_intItems2 + 1
                    End If
                Next

                If blnAuthReplace Then
                    .Text = o_strText
                Else
                    .SelStart = o_intPos2 - 1
                    .SelLength = o_intLen
                End If

                If o_intItems2 > UBound(o_strRet) Then
                    o_udtErrorType = etDefault
                Else

                End If

            Else
                If Not blnCanBeEmpty Then
                    o_udtErrorType = etEmpty
                Else

                End If
            End If
        End If
If o_udtErrorType <> etDefault Then 'Èç¹û½á¹ûÓÐ´í£¬¸ù¾Ý´íÎóÀàÐÍ£¬ÌáÊ¾
            On Error Resume Next
            .SetFocus
            On Error GoTo 0

            If blnShowMsg Then
                Select Case o_udtErrorType
                        Case etInvalid
                            MsgBox "ÊäÈë²»·ûºÏÒªÇó¡£" & vbCrLf & _
                                    "ÒÔÏÂ×Ö·û²»ÄÜ´æÔÚ£º " & vbCrLf & _
                                    Join(o_strRet, "£¬") & "¡£" _
                                    , vbInformation
                        Case etModified
                            MsgBox "ÊäÈë²»·ûºÏÒªÇó¡£" & vbCrLf & _
                                    "ÒÔÏÂ×Ö·û²»ÄÜ´æÔÚ£º " & _
                                    Join(o_strRet, "£¬") & "¡£" & vbCrLf & _
                                    IIf(blnAuthReplace, vbCrLf & _
                                       "¸Ã×Ö·ûÒÑ¾±»×Ô¶¯¸üÕý¡£", vbNullString) _
                                    , vbInformation
                        Case etEmpty
                            MsgBox "ÊäÈë²»·ûºÏÒªÇó¡£" & vbCrLf & _
                                    "²»ÄÜÎª¿Õ£¬Äú±ØÐë°´ÒªÇóÊäÈëÎÄ×Ö¡£" _
                                    , vbInformation
                End Select
            Else

            End If
        Else

        End If

    End With

    ValidateText = o_udtErrorType

    Exit Function


handleError:
    ValidateText = etUnknown
    If blnShowMsg Then
        MsgBox "ÔÚÐ£ÑéÎÄ±¾µÄ¹ý³ÌÖÐ³öÏÖÒÔÏÂ´íÎó£º" & vbCrLf _
                & Err.Description
    Else
    End If
    On Error GoTo 0

End Function
Public Function ValidatePostCode(ByRef objInputBox As Object, _
                              Optional ByVal blnCanBeEmpty As Boolean = False, _
                              Optional ByVal blnShowMsg As Boolean = False _
                              ) As enumErrorType
'********************************************
'*
'* ¹¦ÄÜ£ºÐ£ÑéÊäÈë£¨ÓÊÕþ±àÂë£©
'* ÊäÈë£ºobjInputBox          - ÊäÈë¶ÔÏó£¨Ö§³ÖTextBox¡¢ComboBoxµÈ£©
'*       blnCanBeEmpty(¿ÉÑ¡)  - ÊÇ·ñÔÊÐí¿ÕÖµ
'*       blnShowMsg(¿ÉÑ¡)     - ÊÇ·ñÏÔÊ¾ÌáÊ¾
'*
'* ·µ»Ø£ºÈç¹ûÊäÈëÖµºÏ·¨£¬·µ»ØTrue£¬·´Ö®£¬False
'*
'* ×îºóÐÞ¸Ä£ºUnruled Boy @ 1/13/2002
'*
'********************************************

On Error GoTo handleError    Dim o_strText As String
    Dim o_udtErrorType As enumErrorType

    o_udtErrorType = etDefault '³õÊ¼»¯´íÎó£ºÎÞ

    With objInputBox

        o_strText = .Text

        '¿´Ä¿Ç°³¤¶ÈÊÇ·ñ³¬Ô½ÏÞÖÆ³¤¶È£¬Èç¹ûÊÇ£¬ÌáÊ¾£¬ÊäÈëÎÞÐ§
        If Len(o_strText) > mc_intPostCodeLength Then

            o_udtErrorType = etMaxLength

        Else

            If o_strText <> vbNullString Then

                If IsNumeric(o_strText) Then

                    If Len(o_strText) = mc_intPostCodeLength Then
                        '
                        '
                        '
                        o_udtErrorType = etDefault
                    Else
                        o_udtErrorType = etInvalid
                    End If

                Else
                    o_udtErrorType = etRange
                End If

            Else
                If Not blnCanBeEmpty Then
                    o_udtErrorType = etEmpty
                Else

                End If
            End If
        End If

        If o_udtErrorType <> etDefault Then 'Èç¹û½á¹ûÓÐ´í£¬¸ù¾Ý´íÎóÀàÐÍ£¬ÌáÊ¾
            On Error Resume Next
            .SetFocus
            On Error GoTo 0

            If blnShowMsg Then
                Select Case o_udtErrorType
                        Case etRange
                            MsgBox "ÊäÈëÖµ[·¶Î§]²»·ûºÏÒªÇó¡£" & vbCrLf & _
                                    "ÓÊÕþ±àÂëÒªÇóÈ«²¿ÎªÊý×Ö¡£ " _
                                    , vbInformation
                        Case etMaxLength
                            MsgBox "ÊäÈëÖµ[³¤¶È]²»·ûºÏÒªÇó¡£" & _
                                    "ÒªÇóÊäÈë³¤¶ÈÎª£º " & _
                                    CStr(mc_intPostCodeLength), vbInformation
                        Case etInvalid
                            MsgBox "ÊäÈëµÄÓÊÕþ±àÂë²»·ûºÏÒªÇó¡£" & vbCrLf & _
                                    "ÌáÊ¾£ºÓÊÕþ±àÂë±ØÐëÈ«²¿ÎªÊý×Ö£¬" & _
                                    "¶øÇÒ³¤¶È±ØÐëÎª" & _
                                    CStr(mc_intPostCodeLength) & "Î»¡£¡£" _
                                    , vbInformation
                        Case etEmpty
                            MsgBox "ÊäÈë²»·ûºÏÒªÇó¡£" & vbCrLf & _
                                    "ÓÊÕþ±àÂë²»ÄÜÎª¿Õ£¬Äú±ØÐë°´ÒªÇóÊäÈë¡£" _
                                    , vbInformation
                End Select
            Else

            End If
        Else

        End If

    End With

    ValidatePostCode = o_udtErrorType

    Exit Function


handleError:
    ValidatePostCode = etUnknown
    If blnShowMsg Then
        MsgBox "ÔÚÐ£ÑéÓÊÕþ±àÂëµÄ¹ý³ÌÖÐ³öÏÖÒÔÏÂ´íÎó£º" & vbCrLf _
                & Err.Description
    Else
    End If
    On Error GoTo 0

End Function
to:enmity (灵感之源)
你可以把代码发到-文档中心-
to:jiangtao(蒋涛) 呵呵，这个我倒是忘记了，谢谢你吖，社长：）
对，我也觉得不大妥当，粘贴出来的中文全部变成(Encode过的)乱码了。
这个和XML的处理有关，我们正在检查代码
不要用这种编码方式,在xml中& 是不允许出现的。
to:ghj1976(蝈蝈俊.net) 呵呵，我原来是中文的啊！现在就变成这样了 :(还有，我不能在文档中心发布文章阿，每次都等老半天，然后就是“网页没有找到”......
估计是从unicode贴过来的，可以试试看保存到一个html文件，然后用IE打开，用正确的编码方式浏览，然后ctrl-a选中，保存到notepad这样不支持HTML的OLE和自动编码的编辑器，保存成html。
呵呵，虽然麻烦点，没有转码工具的时候用来在big5/unicode/gb之间转码也倒有效。好长啊，enmity ...
不如upload倒某个地方然后贴url咯：）
to:joyplay(想吃老虎的小猪) 其实我早就upload到:http://caotang.mytang.com/temp/smartflexinput.zip可是，很多网友都说下载不了阿！
enmity(灵感之源) :
你提供的这个网址，不知怎么回事，FlashGet总是下的不对（100多K,打不开），但其他都好的，包括蚂蚁，ie直接下都可以，可能FlashGet有Bug
to:fuxc(Michael) 呵呵，我有些时候也这样，或许是网站本身的问题吧。