Dim a As String, b As String, c As String, d As String, e As String, m As String, n As String, Y As String

Function max(a, b)
max = IIf(a > b, a, b)
End Function
Function min(a, b)
min = IIf(a < b, a, b)
End Function
Sub tSum()
a = Val(Text5(4))
b = Val(Text5(5))
c = Val(Text5(6))
m = max(a, max(b, c))
n = min(a, min(b, c))
Static s
If Text5(4) <> "" Then
s = s + 1
End If
If Text5(5) <> "" Then
s = s + 1
End If
If Text5(6) <> "" Then
s = s + 1
End If
If Text5(4).Text = "" And Text5(5).Text = "" And Text5(6).Text = "" Then
Else
Y = (Val(Text5(4)) + Val(Text5(5)) + Val(Text5(6))) / s
s = 0
Text5(7).Text = (m - n) / Y
Text5(7).Text = Format(Text5(7), "0.00%")
End If
a = Val(Text5(0))
b = Val(Text5(1))
c = Val(Text5(2))
m = max(a, max(b, c))
n = min(a, min(b, c))
Static w
If Text5(0) <> "" Then
w = w + 1
End If
If Text5(1) <> "" Then
w = w + 1
End If
If Text5(2) <> "" Then
w = w + 1
End If
If Text5(0).Text = "" And Text5(1).Text = "" And Text5(2).Text = "" Then
Else
Y = (Val(Text5(0)) + Val(Text5(1)) + Val(Text5(2))) / w
w = 0
Text5(3).Text = (m - n) / Y
Text5(3).Text = Format(Text5(3), "0.00%")
End If
End Sub

Private Sub Text5_Change(Index As Integer)
Call tSum
End Sub
运行填数后要报"溢出堆栈空间"
那位老大帮我看下要怎么改

为什么要字符串直接比较大小呢？不解。

字符串还可以直接Format(Text5(7), "0.00%")，妙....

搭建测试工程才找到你 为什么会 报溢出堆栈空间 了。

首先，这个事件，会导致 调用 tSum 过程。
Private Sub Text5_Change(Index As Integer)
Call tSum
End Sub

然后在 tSum 过程 ，以下4句，会修改 Text5 某个控件 的值。
Text5(7).Text = (m - n) / Y
Text5(7).Text = Format(Text5(7), "0.00%")

Text5(3).Text = (m - n) / Y
Text5(3).Text = Format(Text5(3), "0.00%")
用代码 修改控件值会导致什么事件呢？很不幸是产生 Change 事件，导致 Text5_Change 事件被触发，
而 Text5_Change 事件被触发，导致重新调用 tSum ，无限死循环
程序调用过程，需要把前一次过程里的入口地址什么的压到堆栈里，这种无限死循环的调用，堆栈很快就被压满掉了。
-----------------
不知道你程序逻辑的情况，只能提出修改建议了。
一、程序启动事件，不要使用 Change 事件。
二、或者在 Change 事件中加了一个判断，凡 tsum 里产生的 Change 事件忽略掉。如加一个标志变量。

不加调用就不自动计算啊
不用数组不会报错。
如能单个写Private Sub Text5_Change(Index As Integer)应该可以
怎么这样写我就不会了Private Sub Text5(0)_Change(Index As Integer)

[此贴子已经被作者于2022-5-18 18:09编辑过]

用于输出数据的控件不要与输入数据的控件用相同的名字。
把text5（3）和text5（7)用不同的控件名称。
还有，参与计算的变量要定义为数值变量，把Dim a As String, b As String, c As String, d As String, e As String, m As String, n As String, Y As String改为
Dim a As single, b As single, c As single, d As single, e As single, m As single, n As single, Y As single

方法二的修改方法

dim NoChange as Boolean
Sub tSum()
NoChange = true
.....

NoChange=false
end sub

Private Sub Text5_Change(Index As Integer)
if not NoChange then
    Call tSum
end if
End Sub

----------------------------------
分析：
NoChange 没有给值时，原始值为 false
这时，触发 text5_Change 时，not NoChange 值为真，调用 tSum 过程。
而在 tSum 过程中，第一句就是 给 NoChange 值为真，
当修改 text5 值时，触发 text5_Change 时，not NoChange 值为假，不会再调用 tSum 过程。