جرب الكود ده ياأستاذنا.... بس أنا تابعت الردود على طلبك .... وأعتقد الأستاذ الحاوي أبلى بلاءً حسناً وأنا أوافقه الرأي لابد من إختبار القيمة بجملة If ..... لا مفر .... خير إن شاء الله
Dim c, no1, no2 As Integer
no1 = Me.TextBox1.Text
no2 = Me.TextBox2.Text
If no1 Mod 2 = 0 Then
no1 = no1 + 1
End If
For c = no1 To no2 Step 2
(MsgBox(c
Next
End Sub