代码小白，请大神帮忙，excel登录密码的问题

baijinze

代码如下
Private Sub CommandButton1_Click()
Dim a, b, d, c As Integer
    a = UserForm1.TextBox1.Value '定义用户名
    b = Val(UserForm1.TextBox2.Value) '定义密码
    d = "实验"
If a = "" Then MsgBox "对不起，您没有输入用户名，不能登录", 16, "敬告": Exit Sub '16代表显示的图标，是已固定，也可是其他值
If b = "" Then MsgBox "对不起，您没有输入密码，不能登录", 16, "敬告": Exit Sub
If d = 0 Then MsgBox "对不起，没有这个用户，不能登录", 16, "敬告": Exit Sub '无对应情况下，触发告警
    If d > 0 Then
    c = "111"
    If b <> c Then
    MsgBox "对不起，密码错误，不能登录", 16, "敬告": Exit Sub

    ElseIf a = "管理员" And b = "9999" Then
    Unload Me
    End If
    End If
End Sub


存在如下问题：
1、输入任何用户名密码都不对，管理员密码也不对

2、密码定义是否需要加“”