سؤال في الفيجوال بيسك ( نقل نص إلى Array)

[أبوغوش]

السلام عليكم

أرجو منكم المساعدة ياشباب ...

أريد أن أضع نصا كاملا من عدة حروف وكلمات في مصفوفة(Array) ....

وبمعنى آخر ..مربع النص text1.text ، يوجد به عدة كلمات وحروف ، أريد أن أضع هذا النص في مصفوفة(Array) ، بحيث يكون كل حرف في خانة من تلك المصفوفة ...

كيف يمكنني أن أفعل هذا إذا كنت أعلم العدد الأقصى للحروف الممكن إدخالها ؟؟؟؟؟

شكرا لتعاونكم

[HardWare]

أخي الكريم ، هل الحروف التي في مربع النص ثابتة أم متغيرة في عددها ، وكم هو الحد الأعلى الذي تصل إليه؟

[Mr.ASP]

مصفوفة الكلمات

 Dim Words As Variant
 Words = Split(Text1.Text, Space(1))

مصفوفة الحروف

 Dim Words() As Variant
 Dim n As Long
    For n = 1 To Len(Text1.Text)
        ReDim Preserve Words(n - 1)
        Words(n - 1) = Mid(Text1.Text, n, 1)
    Next