const test as string = "abcABC123"
dim i as string
dim buffer () as byte
dim strtest as string
redim buffer (len(test)-1)
me.autoredraw = true
for i = 0 to ubound (buffer)
buffer (i) asc(mid$(test , i+1,1)
next
text1.text = buffer
mscomm1.output= trim (text1.text)
for i=0 to ubound(buffer)
strtest = strtest&chr$(buffer(i))
next
text2.text= strtest
mscomm2.output = trim (text1.text)