VAL函数与用户窗体中的字符串一起使用

Question

我有一个模块，该模块可以找到最小值和最大值以计算测量范围。

我无所适从。它可以正常工作3个月，并以错误编译错误Invalid qualifier停止。 Val突出显示为蓝色。

'查找切割带的最小值和最大值。

Dim tMin As Integer
Dim tMax As Integer

tVar = 0
tMin = 10
tMax = -10

For j = 1 To 5
    If tMin > Val(Controls("Tape" & j)).Value Then
        tMin = Val(Controls("Tape" & j)).Value
    End If

    If tMax < Val(Controls("Tape" & j)).Value Then
        tMax = Val(Controls("Tape" & j)).Value
    End If

    Debug.Print tMin, tMax

Next j

tVar = tMax - tMin

预期结果是最大值和最小值之间的差。实际结果是突出显示Val的语法错误。