This is the code to convert the string to binary buffer:
Dim nLen As Double
nLen = Len(Text1.Text)
For i = 1 To nLen
bytA(i - 1) = CByte(Asc(Mid(Text1.Text, i, 1)))
My question is:
-If nLen is large (about > 2M), this code takes a lot of time, how to improve this code.
-Is there the other codes or functions to convert?
Thanks in advance,