在声明string中添加计算

我仍然在学习VBA excel，并且遇到了一个问题，我将如何在代码中添加计算

vRow = 2 While Cells(vRow, 1).Value <> "" field1 = Cells(vRow, 1).Value field2 = Cells(vRow, 2).Value field3 = Format(Now(), "AB""_""YYYYMMDD""_""001") field4 = Cells(vRow, 4).Value Dim str As String str = "" str = field1 & "|" & field2 & "|" & field3 & +1 & "|" & field4 

我目前的结果是这样的

 00|?????|AB_20161215_0011| 

我需要场3能够+1，而不是第一个结果的结果

 00|?????|AB_20161215_002| 

我几乎明白了

 Dim str As String Dim calc As Long calc = 1 + 1 str = "" str = field1 & "|" & field2 & "|" & field3 & calc & "|" & field4 

只是格式我不能让002而不是2，

 00|?????|Ab_20161216_2| 

附加信息：我需要的格式能够迎合999像

 00|?????|AJ_20161216_999|