Dim i, chCount, ascCode, X, Y As Integer
Dim ByteCode() As Integer
Dim ch As StringchCount = 0
For i = 1 To Len(XX)
    ch = Mid(XX, i, 1)
    If Asc(ch) >= 0 Then
        chCount = chCount + 1
    Else
        chount = chCount + 2
    End If
    
NextReDim ByteCode(0 To chCount - 1)chCount = 0
For i = 1 To Len(XX)
    ch = Mid(XX, i, 1)
    ascCode = Asc(ch)
    If ascCode >= 0 Then
        ByteCode(chCount) = ascCode
        chCount = chCount + 1
        
    Else
        X = (65536 + ascCode) \ 256
        Y = (65536 + ascCode) Mod 256
        
        ByteCode(chCount) = X
        ByteCode(chCount + 1) = Y
        chCount = chount + 2
        
    End If
    
    Next
    
'''''''''''''在
ReDim ByteCode(0 To chCount - 1)说下标越界·我要怎么改·?谢谢·