معرفة عدد الكلمات والحروف الى آخره في نص طويل

أخي الكريم , الكود داخل هذا البرنامج هو مصنوع بلغة محرر الأكود الفيجوال بيسك .

أبحث عن الأكواد التي تعمل العمل نفسه في البيسك , وكما تعمل مع البيسك فأنها تعمل مع محرر الأكواد البيسك المضمن مع الأكسس .

SString = Len("Emad")

الكود السابق يعطيك عدد الاحرف وهو 4

وأما عدد الكلمات فلها عدت طرق من أسهلها

dim X() as Intiger

x = split("Emad Loves Programming and help others")

me.caption = ubound(x)