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

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

کد:

---

Private Sub Command1_Click()
    UserName = Text1.Text
    Code = 1
    For i = 1 To Len(UserName)
        Code = Code * Asc(Mid(UserName, i, 1))
    Next i
        Code = Code And &HFFFFFFF
        Text2.Text = Code
End Sub

---

سلام
من نمی فهمم خط ششم چیکار میکنه.
من سورس شمارو به این شکل تغییر دادم (با اجازه)
-----------------------------------------------------------
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
----------------------------------------------------------
برای بهره مند شدن از کمک بیشتر لطفا خط شش رو توضیح بده. :biggrin:

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

کد:

---

CODE = 23 AND 39

---

code برابر 7 مي شه

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

کد:

---

  0 0 0 1 0 1 1 1
&  0 0 1 0 0 1 1 1
--------------------
  0 0 0 0 0 1 1 1

---

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

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