[OsamaGhareeb]

تفضل

كود :

Dim x As String = "password"
Dim Count As Integer = 0
Err:
If Count < 3 Then
    If Not x = InputBox("أدخل كلمة السر لتتمكن من التعديل") Then
        Count += 1
        MsgBox("للأسف كلمة السر خاطئة اتصل بمدير التطبيق")
        GoTo Err
    End If
Else
    MsgBox("لا يمكنك إدخال كلمة السر أكثر من ثلاث مرات")
End If