عد رقم في التكست

private sub command1_click()
dim Stro as string 
dim Numa as string, Numb as string
stro = text1.text
for i = 0 to len(stro)
    One = mid(stro, i, 1)
    if One = a then
        Numa = Numa + 1
    else
        Numb = Numb + 1
    end if
next i 
msgbox "number of a = " & Numa & "number of b = " & Numb& 
end sub

هذا الكود لم أجربه كتبته بسرعة

جربه وأن شاء الله مزبوط

مشكور

بس يوجد خطأ في الكود

الخطأ فى آخر سطر قبل end sub

قم بمسح الرمز & بعد المتغير Numb

قد مسحت & ولكن يظر لي الخطأ من One = Mid(Stro, i, 1)

قد مسحت & ولكن يظهر لي الخطأ في هذا السطر One = Mid(Stro, i, 1)