كيفية تقطيع جملة عبر كلمة وليس حرف

الأمر يبدو بسيط ، ولكن ما نقع به دائما في الفيجوال بيسك استخدام دالة Split الموجودة في الفئة String ، وإرسال وسيطة كلمة لها ، معتقدين أن عملية التقطيع ( التقسيم ) ستتم عبر الكلمة. ولكن ما يحدث هو أن الفيجوال بيسك يعمل كعمل دالة التقطيع الخاصة بالسي شارب ويقوم بتحويل النص إلى مصفوفة أحرف ويقسم حسب كل حرف في الكلة وليس حسب الكلمة ككل الحل بسيط يكمن في استخدام دالة Regex.Split وهذا كمثال

            Dim ar As String() = Regex.Split("بطتنا بطت بطن بطتكوا بطتين ونص بطة", "بط")