ต้องการโค้ด login แบบมีหลาย ยูสเซอร์ ช่วยแก้ไขให้หน่อยค่ะ

[thinatda]

Dim strUsername As String
Dim strpassword As String
Dim Use As Variant
Dim pwd As Variant
strUsername = Username.Text
strUsername = password.Text
Use = Application.VLookup(Username.Text, Rang("users"), 2, False)
pwd = Application.VLookup(password.Text, Rang("pass"), 2, False)
If IsError(Use) = False Then
If Application.VLookup(Username.Text, Rang("users"), 2, 0) = _
password.Text Then
Sheets("Input").Select

MsgBox "Login"
Unload Login

Else
MsgBox "pass"
End If
End If

[snasui]

กรุณาโพสต์ Code ให้แสดงเป็น Code ดูตัวอย่างตามกฎการใช้บอร์ดข้อ 5 ด้านบน นอกจากนี้ขอให้แนบไฟล์ที่มี Code นี้แล้วมาด้วยครับ