以下是在 Excel 中使用 VBA 计算最大三个数的和的代码:

```VBA

Sub GetMaxThreeNumbers()

    Dim threeMax as integer

    Dim i as integer

    Dim j as integer

    Dim k as integer

    ' 获取三个最大数

    threeMax = 0

    i = 1

    j = 1

    k = 1

    ' 循环遍历每个数

    Do

        If i > threeMax Then threeMax = i

        If j > threeMax Then threeMax = j

        If k > threeMax Then threeMax = k

        i = i + 1

        j = j + 1

        k = k + 1

    Loop

    ' 计算这三个数的和

    Result = i + j + k

    ' 输出结果

    MsgBox "最大三个数为:" & Result

End Sub

```

这个代码中,我们首先定义了三个变量 `threeMax`、`i`、`j`、`k`,分别用于存储三个最大数的值。然后,我们使用一个 `Do` 循环来获取这三个数,并将它们存储在变量 `i`、`j`、`k` 中。在循环的每个阶段,我们比较当前数与 `threeMax` 的大小,如果当前数大于 `threeMax`,则 `threeMax` 更新为当前数,并将 `i`、`j`、`k` 的值加一。循环结束后,我们返回 `i`、`j`、`k` 的最大值,并将其存储在变量 `Result` 中,最后输出 `Result` 的值。