Create a command 1.

The code is as follows.

============

Dim byte data

Private subcommand 1_Click ()

Dim i is an integer and s is a string.

Byte data = array (8,0,48,49,50,51,52,53,54,55)

For i = LBound(bytesdata) to UBound(bytesdata)

S = s&p. ChrW (byte data (i))

then

Print s

End joint