参见原程序：
    For i = 1 To RecNum
        Data(i) = OutStatus(i).H_Value     'H
    Next i
    Call Test(Data(), Result1, Result2)
    Report = Report & vbCrLf & "H_Value:" & vbTab & Result1 & vbTab & Result2
   
    For i = 1 To RecNum
        Data(i) = OutStatus(i).I_Value     'I
    Next i
    Call Test(Data(), Result1, Result2)
    Report = Report & vbCrLf & "I_Value:" & vbTab & Result1 & vbTab & Result2
   
    ......

    For i = 1 To RecNum
        Data(i) = OutStatus(i).Z_Value     'Z
    Next i
    Call Test(Data(), Result1, Result2)
    Report = Report & vbCrLf & "Z_Value:" & vbTab & Result1 & vbTab & Result2

能不能做一个子程序调用如 TestAll(Value)，所有都直接调用如：
 TestAll(H_Value)
 TestAll(I_Value)
 ......
 TestAll(Z_Value)

在线等，谢谢！

十分感谢版主！这段程序近20年前设计的，有近百个子模块，现在改成类模块工程太浩大了，所以在寻找不改变自定义变量结构的方法。
版主还有别的办法吗？

谢谢wmf2014版主和lianyicq版主，这样好像还是不能直接用变量名字符串调用啊？（如用你们例子中的"BH"作为变量）

您这个方法应该很好，我会把他作为下一个版本的标准。谢谢您！

我现在暂时在找不改动数据结构方法，怕存储数据读不出来了

直接用出错。数组问题不好解决

这样就不是我们需要解决的问题了

谢谢各位版主，现在明白原系统为什么那样编了——简单直观易于理解，虽然让人感觉过多重复。

尤其谢谢风吹过b，让我学到更多。