أستفسار هام و سريع - فى فصل محتويات التيكيست بوكس

السلام عليكم ورحمة الله و بركاته،

أخي الكريم يمكن فصل السلاسل النصية باستخدام الوظيفة Split، كما يلي:

Sub SplitTextBox()
   Dim vParts as Variant

   vParts = Split(txtSource.Text, "/")

   txtPart1.Text = vParts(0)
   txtPart2.Text = vParts(1)
End Sub

الكود أعلاه يقوم بفصل الأرقام على أساس أن الفاصل هو الرمز / كما طلبت.