如何针对数字组合优化vba代码

Sub OptimizeNumberCombination()
    Dim numbers() As Variant
    Dim combination As Variant
    Dim result As String
    Dim total As Integer
    
    numbers = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) ' 数字的取值范围
    
    For i = 1 To UBound(numbers)
        For j = i + 1 To UBound(numbers)
            For k = j + 1 To UBound(numbers)
                If numbers(i) + numbers(j) + numbers(k) = 10 Then ' 组合条件
                    ' 计算优化指标（这里以数字之和为例）
                    currentTotal = numbers(i) + numbers(j) + numbers(k)
                    If currentTotal > total Then
                        total = currentTotal
                        combination = Array(numbers(i), numbers(j), numbers(k))
                    End If
                End If
            Next k
        Next j
    Next i
    
    ' 输出优化结果
    For Each num In combination
        result = result & num & " "
    Next num
    
    MsgBox "优化后的数字组合为：" & result
End Sub