软件登陆密码要求：

长度至少8位，必须包含数字，大写字母和特殊字符（如 !@#$%^&*()等等）

从网上找个找，又自己修改了一下，程序如下：

        Dim regexText As String
        '正则表达式
        regexText = "(?=^.{8,25}$)(?=(?:.*?\d){1})(?=.*[a-z])(?=(?:.*?[A-Z]){1})(?=(?:.*?[!@#$%*()_+^&}{<>,:;?.]){1})(?!.*\s)[0-9a-zA-Z!@#$%*()_+^&}{<>,:;?.]*$"

        Dim regex As New System.Text.RegularExpressions.Regex(regexText)
        '显示判断结果
        MsgBox(regex.IsMatch(txtNewPassWord.Text.Trim))

其中：

{8,25} 规定了长度，大于等于8，小于等于25

(?=(?:.*?\d){1}) 规定了至少1位数字

(?=(?:.*?[A-Z]){1}) 规定了至少1位大写字母

(?=(?:.*?[!@#$%*()_+^&}{<>,:;?.]){1}) 规定了至少1位特殊字符