مساعده في كود حساب رقم البطاقة

ما هو الشرط أو الشيئ الذي من خلاله ستعرفين أن الرقم المدخل صحيح ؟؟

هل تقصدين أن المستخدم يدخل رقم البطاقة ثم تتحققين منها أنها صحيحة عن طريق معرفة طول الرقم أو رقم مميز في الأول أو الأخير ؟؟؟؟

صراحة انا مش عارف الشرط الحقيقي لهيك الامور مصتصعبة علي كثير , لكن ارفقت ملف اكسس فيه الشرط موجود , وهادا الكود الي بالاكسس المرفق

Private Sub id_AfterUpdate()
Dim a(9)
Dim m, sum, sum1, sum2, i As Integer
Dim b As String * 9
b = Me!id
For i = 1 To 9
a(i) = Val(Mid(b, i, 1))
Next i
For i = 2 To 8 Step 2
a(i) = Int(a(i) * 2 / 10) + ((a(i) * 2) Mod 10)
Next i
sum = 0
For i = 1 To 8
sum = sum + a(i)
Next i
sum1 = Int(sum / 10)
sum2 = (sum1 + 1) * 10
m = a(9)
If (sum2 - sum) <> m Then
m = "رقم الهوية خطأ تأكد من إعادة إدخالة بصورة صحيحة"
t = "خطأ في إدخال البيانات"
m = m
Style = vbOKOnly + vbQuestion + vbMsgBoxRight + vbDefaultButton2
response = MsgBox(m, Style, t)
If response = vbOK Then
mystring = "ok"
End If
End If
End Sub

ما فيه حل ؟!!!!

فزعتكم يا جماعة , العملية مجرد اضافة رقم في textbox وبعد النقر على button1 , اذا كان الشرط خطأ يخرج رسالة , اذا كان صحيح يكمل .

خلص الشغلطة طلعت بسيطة , مشكورين تم حل الموضوع .