主题：[求助] 密码复杂性验证

If e.Form.Controls("原密码").Text = _userPassword Then

    _userPassword = e.Form.Controls("新密码").Text

    msgbox("修改成功！")

End If

   以下命令可以判断密码是否有【大写字母】【小写字母】【数字】【密码位数必须超8位】；如果我想增加一个密码必须有【特殊符号】、该怎么写？

Dim reg = new System.Text.RegularExpressions.Regex("[***]+")

  Dim reg = new System.Text.RegularExpressions.Regex("[A-Z]+")
                    If reg.Ismatch(Password) = False Then
                        msgbox("必须有大写字母")
                    Else
                       
                        Dim reg1 = new System.Text.RegularExpressions.Regex("[a-z]+")
                        If reg1.Ismatch(Password) = False Then
                            msgbox("必须有小写字母")
                        Else
                           
                            reg = new System.Text.RegularExpressions.Regex("[0-9]+")
                            If reg.Ismatch(Password) = False Then
                                msgbox("必须有数字")
                            Else
                               
                                If Password.Length < 8 Then
                                    msgbox("必须大于8位")
                                Else