VB怎么定量啊，下面这段，让我只有输入我指定的string才可以关机的啊

Private Sub Command1_Click()

z = MsgBox("你确定真的要关机吗？", vbOKCancel)

If x = "jakson" And y = "themoney" Then

MsgBox "登陆成功"

Shell "shutdown -s -t 00"

Unload Me

Else

MsgBox "密码错误"

End If

End Sub

Private Sub Command2_Click()

j = MsgBox("你不打算关机了吗？", vbOKCancel)

If j = vbOK Then Unload Me

End Sub

Private Sub Command3_Click()

Dim x As String

x = InputBox("帐号是多少啊？不知道别乱来！")

End Sub

Private Sub Command4_Click()

y = InputBox("密码是多少啊？知道就成全你！")

End Sub

Private Sub Command5_Click()

w = MsgBox("你想直接关机，门都没有！")

End Sub

应该怎么改啊，怎么定法，

还有，如果我学VB打算买一本书，应试买什么书呢，因为我是第一次接触编程，要O基础的啊。谁还可不可以告诉我一个有针对性的例子啊！

全回答再追加分

你是要输入string才关机 要这样改

Private Sub Command1_Click()

MsgBox("你确定真的要关机吗？", vbOKCancel)

x = inputbox("")

if x="string" then

MsgBox ("登陆成功")

Shell "shutdown -s -t 00"

Else

MsgBox ("密码错误")

End If

End Sub