隐式引用variables名称通过string数组的if语句？

我试图做的是使用if语句将指定的值与一长串variables进行比较。 我想隐式地引用if语句的variables名（以及进一步处理），这样我就不必做20+条if语句。 这是我的代码，我得到一个types不匹配。

Public iFPYCol As Long Public iTimeCol As Long Public iBrgPosCol As Long Public iBrgPosFailCol As Long Public iDisLoadCol As Long Public iDisLoadFailCol As Long Public iMaxBrgLoadCol As Long Public iBrgMaxLoadFailCol As Long Public iBrgTravelCol As Long Public iTravelFailCol As Long Public iPlateLoadCol As Long Public iPlateLoadFailCol As Long Public iDepartureCol As Long Public iDepartureFailCol As Long Public iPlaneCol As Long Public iPlaneFailCol As Long Public iCamIndexFailCol As Long Public iCycInterruptCol As Long Public iCamAssistCol As Long Public iCamAssistFailCol As Long Public iCoverNoCol As Long Sub Main() 'unrelated code sNothing = IncrementColNum(iBrgPosFailCol, 2) 'unrelated code End Sub Function IncrementColNum(iCol As Long, iNum As Long) As String Dim arrVariables() As String arrVariables = Split("iFPYCol,iBrgPosCol,iBrgPosFailCol,iDisLoadCol,iDisLoadFailCol,iMaxBrgLoadCol,iBrgMaxLoadFailCol,iBrgTravelCol,iTravelFailCol,iPlateLoadCol,iPlateLoadFailCol,iDepartureCol,iDepartureFailCol,iPlaneCol,iPlaneFailCol,iCamIndexFailCol,iCycInterruptCol,iCamAssistCol,iCamAssistFailCol,iCoverNoCol,iTimeCol", ",") For iCounter = 1 To UBound(arrVariables) If arrVariables(iCounter) >= iCol Then arrVariables(iCounter) = arrVariables(iCounter) + iNum End If Next iCounter 'Return Nothing IncrementColNum = "Nothing" End Function 

types不匹配是因为我的数组和iCol是不同的types。 问题是，我不想将arrVariables(iCounter)与iCol进行比较，我想将名称为arrVariables(iCounter)的variables的值与iCol进行比较。

我有一个function，因为我要做很多次了。 我查了一下如何让一个函数什么都不返回，而且看起来不像VBA可能。