フィールドにインクリメントした数字を挿入する方法

'------
'演算式
'  Static recno As Long
'  recno = recno + 1
'
'フィールド名=
'  recno

'※フィールド演算の高度な設定で書いた変数はPublicなので残っている。

'------
'フィールド演算相当の機能
Sub test()
    Dim i1 As Integer
    Dim i2 As Integer
    Dim i3 As Long
    
    i1 = 0  '対象レイヤ
    i2 = 4  'フィールドのインデックス番号
    i3 = 0  'フィールドに書き出し始める数値
    
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    
    Dim pFLayer As IFeatureLayer
    Set pFLayer = pMxDoc.FocusMap.Layer(i1)
    
    Dim pFeatureCursor As IFeatureCursor
    Set pFeatureCursor = pFeatureClass.Update(Nothing, False)  'QueryFilter:検索条件
    
    Dim pFeature As IFeature
    Set pFeature = pFeatureCursor.NextFeature
    
    Do Until pFeature Is Nothing
        
        pFeature.Value(i2) = i3
        i3 = i3 + 1
        
        pFeatureCursor.UpdateFeature pFeature
        Set pFeature = pFeatureCursor.NextFeature
        
    Loop
End Sub