vb操作字符串

“变成bcd嘛要求”？？？？
看不明白

BCD码，不过不明白lz的意思

Dim j As Integer
Dim a(10) As String

Private Sub Command1_Click()
DealStr "20080101111111"
For i = 0 To j
Print a(i)
Next i

End Sub

Function DealStr(Str As String)

j = 0
For i = 1 To Len(Str) Step 2
a(j) = Mid(Str, i, 2)

j = j + 1
Next i

End Function

BCD码是一种8421编码，它将一个字节分两部分，高4位代表一个数字，低4位代表一个数字。也就是说，计算机怎么识别一个字节到底是二进制码还是BCD码，这是由程序代码来运算的。
每2个BCD码构成一字节，每字节二进制数据需处理成16进制的字符形式。仅是由00-99的范围。而非00-FF范围。
Option Explicit
Dim sj() As Byte
Dim i As Integer
Private Sub Command1_Click()
ReDim sj(Len(Text1) / 2 - 1)
For i = 1 To Len(Text1) - 1 Step 2
sj((i - 1) \ 2) = Val("&H" & Mid(Text1, i, 2))
Print sj((i - 1) \ 2)
Next
End Sub

Private Sub Form_Load()
Text1 = &qu