Private Sub Form_Load()
Dim s As Integer
Dim passw As String
Do Until (s = 5 Or passw = "00000")
passw = InputBox("ادخل كلمة المرور", "كلمة مرور مطلوبة")
s = s + 1
Loop
If s = 5 Then
MsgBox "كلمة المرور التي ادخلتها خاطئة... الرجاء حاول مرة أخرى", vbOKOnly, "خطأ في كلمة المرور"
End
'عرض النموذج بعد التأكد من تحقق الشرط
frmLogo.Show "frmlogo"
'خروج من التكرار
End If