سر ريز شدن اين برنامه ( مربوط به Vb )

[Bad.Sector]

دوستان من اين برنامه رو درست كردم ولي در خط 7 خطاي سر ريز شدن ميده(البته مي دونم قاعدتا بايد اينجوري بشه به هر حال چون اين كد گويا تر از 50 خط توضيح فكر كردم همين كد و بزارم)
حالا چكار كنم. فقط نگين دستي بايد همه چي رو حساب كرد

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[A_M_IT2005]

سلام
من نمی فهمم خط ششم چیکار میکنه.
من سورس شمارو به این شکل تغییر دادم (با اجازه)
-----------------------------------------------------------
Private Sub Command1_Click()
Dim Code As Double
UserName = Text1.Text
Code = 1
For i = 1 To Len(UserName)
Code = Code * Asc(Mid(UserName, i, 1))
Next i
Code = Code
Text2.Text = Code
End Sub
----------------------------------------------------------
برای بهره مند شدن از کمک بیشتر لطفا خط شش رو توضیح بده.

[Bad.Sector]

اون خط 6 نمي خام حذف شه مهمه
AND يه عملگر بيتيه ديگه
مثلا براي دو عدد 23 و 39

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

code برابر 7 مي شه

اينم به صورت بيتي

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

1 در 1 مي شه 1
0 در 0 و 0 در 1 هم مي شه 0

نمي خوام خودم حساب كنم، اگه راهي، تابعي،‌ميونبري چيزي كه راحت بشه اين حالت رو حساب كرد،
خيلي ممنونت مي شم اگه راهنماييم كني