三次密码输入错误退出登录用VB代码怎样写

Dim intC as integer,Pass as string
Private Sub Form_Load()
Pass="123456"'设置密码
dim InputPass as string
intC=3'输入次数
while intC
if intC=3 then inputPass=inputbox("请您输入密码！") else inputPass=inputbox("您输入的密码有误，您还有" & intC & "次机会输入密码，请你正确输入密码！")
if Pass=inputPass then
intC=0'退出循环
msgbox "登陆成功！"
else
intC=intC-1
if intC=0 then End'最后一次输入错误退出程序
end if
wend
End Sub

先设定变量x等于输入错误次数,如果大于3则结束程序

Dim x As Integer
Private Sub Command1_Click()
If Text1.Text <> "111" Then
Text1.Text = ""
x = x + 1
Label1.Caption = x
If x > 3 Then
End
End If
End If
End Sub

elseif