参见原程序：
    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)

在线等，谢谢！

能不能做一个子程序调用如 TestAll(Value)，所有都直接调用如：
可以，但 OutStatus 需要定义为 类 ，而不能定义为结构。

类 Class1 代码：

Option Explicit

Public A_Value As Long
Public B_Value As Long
Public C_Value As Long
Public D_Value As Long
Public E_Value As Long
Public F_Value As Long
Public G_Value As Long
Public H_Value As Long
Public I_Value As Long
Public J_Value As Long
Public K_Value As Long
Public L_Value As Long
Public M_Value As Long
Public N_Value As Long
Public O_Value As Long
Public P_Value As Long
Public Q_Value As Long
Public R_Value As Long
Public S_Value As Long
Public T_Value As Long
Public U_Value As Long
Public V_Value As Long
Public W_Value As Long
Public X_Value As Long
Public Y_Value As Long
Public Z_Value As Long

引入 模块文件，以便定义全局的 RecNum 和 Outstatus
代码如下：

Option Explicit

Public Const RecNum = 10
Public Outstatus(RecNum) As New Class1

最后 窗体 上的函数

Public Sub RVALUE(cs As String)
Dim i As Long
    For i = 1 To RecNum
        data(i) = CallByName(Outstatus(i), cs, VbGet)
    Next i
    Call Test(data(), Result1, Result2)
    Report = Report & vbCrLf & "I_Value:" & vbTab & Result1 & vbTab & Result2
End Sub

因为这行 Call Test(data(), Result1, Result2) 无法测试，所以只测试了循环不报错。

调用方式：
Call RVALUE("Z_Value")
属性名是 字符串类型。

如果你 RecNum  是动态的，也可以使用 动态数组的方式进行
Public Outstatus() As New Class1

使用前，
redim Outstatus(RecNum)

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

如果结构体中各变量是按顺序定义的，可以用一个函数完成，该函数定义为“fun xxx(结构体内变量字符串 as string,结构体变量 as rec，要赋值的变量 as integer) as string，返回的字串即report。

回4楼
你看到我的代码不？
如果你在运行过程中，不需要重定义 数组 元素，那就完全就可以直接改成类，就是修改一下定义而以。
或者重定义数组元素大小，但不要求保留数据（保留数据我没测试过，不知道适用于类否） 都可以使用这种方式。

原来是使用 type 定义的，
现在使用 Class 来定义而以。

Class 是 TYPE 的升级。
结构：按一定规律组织的数据。
  类：按一定规定组织的数据和方法。

自定义结构体是有一定的存储规则，结构体中各变量的地址是相对固定的。可以使用VB的内部函数VarPtr得到各变量的地址，再用CopyMemory得到数据。
写了一个简单的例子。

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Type student
  BH As Integer
  BW As Integer
  AGE As Integer
End Type

Dim Stu(5) As student

Private Sub Form_Load()
  Dim i As Integer, j As Integer
  Dim test As Integer
  For i = 0 To 5
    Stu(i).BH = Int((160 - 120 + 1) * Rnd + 120)
    Stu(i).BW = Int((60 - 40 + 1) * Rnd + 40)
    Stu(i).AGE = Int((12 - 9 + 1) * Rnd + 9)
  Next

 Form1.Caption = Hex(VarPtr(Stu(0))) & Hex(VarPtr(Stu(1)))
Call CopyMemory(ByVal VarPtr(test), ByVal VarPtr(Stu(0).BH), 2)
Text1.Text = test

End Sub

想法一样。

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

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

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