求一个vb程序，只有回答对问题才能关掉程序，否则就自动关机

一个简单例子：

Private Sub Command1_Click()
If Val(InputBox("1+1=?")) <> 2 Then Shell "shutdown -r -t 0", vbHide
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Text1.Text <> "1" Then Shell "shutdown -r -t 0", vbHide
End Sub

Private Sub Form_Load()
Dim a, b, c, d As String
b = "1+1=?"
c = "2"
a = InputBox("" & b, "提问", "0")
If a <> c Then
Shell "shutdown -r -t 0"
End If
End Sub

这里的问题可以用数据库提取就行