ممكن حد يعرفني قيم المتغيرات دي ولماذا وبالأخص المتغير k
Dim N, K , C As Integer
C = 10
For N = 1 To 10 Step 5
K = K + N
Next
IF N >= C Then
C = C + 1
End If

اتمنى ان اكون قد وفقت فى هذا الحل

بارك الله فيك اخي وللتوضيح عند الاعلان عن متغير من النوع الرقمي ولم يتم تخصيص قيمته يتم التعويض عنه بقيمة مبدائية صفر
جزاك الله خير