在模块内定义个全局变量：Public CA(16)  As Variant
在From1里面：
     For i = 1 To NumItems
        If Not Errors(i) = 0 Then
            MsgBox "AsyncReadComplete Item Clienthandle = " + Str$(ClientHandles(i)) + " FAILED. Error Code = " + Str$(Errors(i)), vbCritical
        ElseIf ClientHandles(i) > 0 And ClientHandles(i) < 17 Then
            If Qualities(i) = 192 Then
                CA(i) = ItemValues(i)         
                txtReadVal.Item(ClientHandles(i) - 1).Text = ItemValues(i)
            Else
                txtReadVal.Item(ClientHandles(i) - 1).Text = GetQualityText(Qualities(i))
                'txtReadVal.Item(ClientHandles(i) - 1).BackColor = &H8080FF
            End If
        Else
在If Qualities(i) = 192 Then处：CA(i) = ItemValues(i)，txtReadVal.Item(ClientHandles(i) - 1).Text能够正常显示数据
  用取值的语句：Text4.Text = CA(12) 数据为0,请教这是怎么回事儿？该怎么处理这个问题？

你到 CA(i) = ItemValues(i) 后面加上测试语句看看结果。怀疑 NumItems 的值不到 12 。

debug.print i;CA(i)

这是两个语句执行的对比结果

那个8.6的，是txtReadVal.txt
下边是那个Text4.text

[此贴子已经被作者于2016-8-10 17:06编辑过]

i=12?

数组里面，第12个变量值。

代码里没有ca(12)=?
那你确定ca(12)<>””

我听明白你的意思了，你是说全局变量定义的时候是不是会出错。这样我请问一下：模块中定义变量组是否可行，该采用什么方式？如果是我定义错误，找到根源并解决了，一切就顺理成章了。

不是这意思，如果你没有别的代码ca(12)=*，而i<12则ca(12)=””