For j = 0 To 21
          CC(j) = Mid(Trim(Sa(j)), 1, 11)
          Text6(j) = CC(j)
      Next j
      M = 1
      For K = 0 To 21
          For L = 0 To 3
              HoustDataByte(K, L) = CByte(Val("&H" & (Mid(CC(K), M, 2))))  '截取有效字符转换成字节数
              M = M + 3
          Next L
          M = 1
          CopyMemory HoustData(K), HoustDataByte(K, 0), 4  '问题行，二维数组中如何使用CopyMemory
          Text9(K).Text = Format(HoustData(K), "0.00")
       Next K

没用过。
CopyMemory 要求的是传地址，你显式写取地址函数试试，当然定义里要改成传值。

未测试过，有可能导致VB6非法关闭。

好的，试试！如有问题再请教您！

如何传法，能给个案例吗？