vb 下标越界·求大侠们帮帮忙

Dim i, chCount, ascCode, X, Y As Integer
Dim ByteCode() As Integer
Dim ch As String

chCount = 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
   
Next

ReDim 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)说下标越界·我要怎么改·？谢谢·

难道你就不考虑chCount会等于0么?

就是不知道这里要怎么改，希望是可以输入汉字·那我的下标要怎么改··