[求助]关于登录校验系统

chips83

Private Sub CommandButton1_Click()
If Forms.TextBox1.Value = "陈伟" And Forms.TextBox2.Value = "sxcw1115" Then GoTo workSheet2 Activate Else MsgBox "用户名或密码错误，请重新输入"

End Sub

CommandButton1为登录按钮，TextBox1为用户名，TextBox2为密码
我要实现用户名和密码正确，就跳转到SHEET2，用户名和密码错误，跳出提示框，焦点回到TextBox1并清空TextBox1及TextBox2数据，如何实现，谢谢。我是初学什么都不懂。请指导。