تبدیل سریال هارد به کد اسکی

اقا سلام خسته نباشین من می خوام یه قفل با وی بی بنویسم از کدای اسکی چیزی یاد ندارم یعنی هر چی دنبالش رفتم مشکل دارم حالا از شما می خوام یه کمکی کنید و بگید با توضیح کامل که چه طوری این کد رو تبدیل به کد اسکی اونم به صورت عدد تبدیل کنم با( وی بی 6) L22CB3EG می خوام تبدیلش کنم به کد اسکی مثلا عددش رو بگیرم بعدش این عددی که به دست میاد رو + یا - یا / یا * یه عددی کنم جوابشو روی یه لیبل به نمایش در یارم که کاربر کد رو به من بده و من با استفاده از کیجنی که خودم ساختم و همراهم هست سریال فعال سازی رو به طرف بدم اگر میشه خواهش می کنم کمکم کنید خیلی گیرم در هر موردی هر جا لینک بدین می تونم واستون آپ کنم چون ای دی اس ال دارم دست شما درد نکنه خداحافظ
اینم ایمیلم هست [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---

http://forum.p30world.com/showthread.php?t=376570

---

سلام دوست گرامی
به این آدرس هم یه نگاهی بکن امیدوارم مشکلت حل بشه
[HTML]http://forum.p30world.com/showthread.php?p=4304746#post4304746[/HTML]

سلام

کد:

---

Public Function gonumberic(mytext As String) As String
Dim x As String
gonumberic = ""
For i = 1 To Len(mytext)
x = Mid(mytext, i, 1)
x = Asc(x)
If Val(x) >= 0 And Val(x) <= 255 Then gonumberic = gonumberic & x
Next i
End Function

---

مثال :

کد:

---

Private Sub Command1_Click()
Text2.Text = gonumberic(Text1.Text)
End Sub

---

موفق باشید .