สอบถามหน่อยครับ จากโค้ดตัวอย่างที่ผมมี ถ้าต้องการเพิ่มการเช็คการใส่รหัสผิด 3 ครั้งทำยังไงครับ รบกวนด้วยครับ

Public Class Form1
 Dim username As String = "admin"
 Dim password As String = "1234"

 Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
 If txtUser.Text = "" And txtPassword.Text = "" Then
 txtUser.Focus()
 MessageBox.Show("กรุณาใส่ชื่อและรหัสผ่านให้ครบถ้วน", "ผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
 InformUser() 'แนะนำผู้ใช้งานกรอกข้อมูลให้ครบ
Exit Sub 'ออก

End If
 'กรณีที่กรอกครบ เราจะตรวจสอบรหัสผ่านที่กำหนดให้ว่า ใช้งานได้หรือไม่
'เราจะสร้างซับรูทีน CheckPassword ขึ้นมาตรวจสอบ
CheckPassword(txtUser.Text, txtPassword.Text)

 End Sub

 Sub CheckPassword(ByVal username As String, ByVal Password As String)

 If username = "admin" And Password = "1234" Then
 MessageBox.Show("คุณสามารถลงทะเบียนได้", "ผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Information)
 ElseIf txtUser.Text <> "admin" And txtPassword.Text <> "1234" Then
 MessageBox.Show("คุณใส่ชื่อและรหัสผิด", "ผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
 Exit Sub
 End If
 If username <> "admin" Then
 txtUser.Focus()
 MessageBox.Show("กรุณาใส่ชื่อให้ถูกต้อง", "ผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
 ElseIf Password <> "1234" Then
 txtPassword.Focus()
 MessageBox.Show("กรุณาใส่รหัสให้ถูกต้อง", "ผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
 Exit Sub
 End If

 End Sub

 Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
 txtUser.Clear()
 txtPassword.Clear()

 End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 InformUser()

 End Sub

 Sub InformUser()
 Dim strOut As String = ""
 strOut &= "กรุณาใส่ชื่อและรหัสให้ถูกต้อง" & vbCrLf
 MessageBox.Show(strOut, "ระบบลงทะเบียน ",
MessageBoxButtons.OK,
 MessageBoxIcon.Information)
 End Sub


End Class