在声明的字符串中添加计算

Question

我还在学习VBA excel，我遇到了一个问题，我如何在我的代码中添加添加计算

override var intrinsicContentSize: CGSize  {
    get {
        let s = super.intrinsicContentSize
        return CGSize(width: s.width + abs(shadowOffset.width), height: s.height + abs(shadowOffset.height))
    }
}

我目前的结果结果是这样的

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

我需要字段3能够+1而不是第一个结果

00|?????|AB_20161215_0011|

我差不多了

00|?????|AB_20161215_002|

只是我不能将格式设为002而不是2，

Dim str As String
Dim calc As Long
calc = 1 + 1

str = ""
str = field1 & "|" & field2 & "|" & field3 & calc & "|" & field4

其他信息：我需要的格式能够像9月一样迎合

00|?????|Ab_20161216_2|