شباب كيف استخدم هذا الكود

مرحبا شباب

عندي هذا الكود

Dim i As Integer
Dim str As String
Dim chr2() As String * 2
'
str = text1.text
i = 0
While str <> ""
   ReDim Preserve chr2(i)
   chr2(i) = Left(str, 2)
   str = Mid(str, 3)
   i = i + 1
Wend

بدي إنو لما أضغط على زر يقوم يطبق هذا الكود ويضع الناتج بتكست بوكس تاني ...