[اسلام الكبابى]

للأسف لم أستطع تحميل الملف

تأتينى رسالة خطأ كلما حاولت فك ضغطه
 أى مثال صغير منك تنتهى المشكلة

---

لعلك تقصد أن تجعل المستخدم يكتب فى التكست مثلآ 67%

ثم تستخدم فى كودك هذا الذى أدخله االمستخدم على أنه رقم =0.67

---

ان كنت تقصد ذلك فهذا هو الكود

كود :

Private Sub Command1_Click()
AAA = Trim(Text1.Text)
LENN = Len(AAA)
INS = InStr(AAA, "%")
If INS < LENN Then MsgBox "", vbCritical, " %من فضلك أدخل كنسبة مئوية . رقم وبعده العلامة": GoTo 100
BBB = Replace(AAA, "%", "")
If Not IsNumeric(BBB) Then MsgBox "", vbCritical, "من فضلك أدخل كنسبة مئوية . ضع قبل العلامة % رقم": GoTo 100
X = BBB / 100
Print "X= "; X
100 End Sub