判断密码必须包括大小写字母，特殊字符，数字，长度8到16位

    '检验密码
    Public Function CheckPassword(ByVal sPassword As String) As Boolean
        'Const SpecialChars = "~!@#$%^&*()-+\|="  '这里列出所有的特殊字符
        '! " # $ % & ' ( ) * + ' - . / : ; < = > ? @ [ \ ] ^ _ ` { | } ~ 
        Dim iLen As Integer
        Dim iLoop As Integer
        Dim sChar As String
        Dim ASCChar As Integer
        Dim bHasSpecial As Boolean
        Dim bHasNumber As Boolean
        Dim bHasLower As Boolean
        Dim bHasUpper As Boolean
        iLen = Len(sPassword)
        If iLen < 8 Or iLen > 16 Then
            CheckPassword = False
            Exit Function
        End If
        bHasSpecial = False
        bHasNumber = False
        bHasLower = False
        bHasUpper = False
        For iLoop = 1 To iLen
            sChar = Mid(sPassword, iLoop, 1)
            'If InStr(SpecialChars, sChar) > 0 Then bHasSpecial = True
            ASCChar = Asc(sChar)
            If (ASCChar >= 33 And ASCChar <= 47) _
            Or (ASCChar >= 58 And ASCChar <= 64) _
            Or (ASCChar >= 91 And ASCChar <= 96) _
            Or (ASCChar >= 123 And ASCChar <= 126) Then bHasSpecial = True