小编use*_*511的帖子

我被分配了一个项目来替换GoSubs应用程序中的所有内容VBA，因为该应用程序正在切换到VB.net并且GoSubs在那里不受支持。这是原始代码的简化版本：

Sub Main ()
  Dim A As String
  ...
  If ConditionX Then A = "Black"
  Else A = "White"
  End If
  ...
  GoSub Execute
  ...
  Execute:
    Call BuiltInSub1 (A)
    Call BuiltInSub2 (A)
    'where BuiltInSubs are some predefined procedures within the application
    ...
  Return

End Sub

我正在考虑使用 aCall来替换，GoSub如下所示：

Sub Main ()
  Dim A As String

  If ConditionX Then A = "Black"
  Else A = "White"
  End If
  ...
  Call …