variable to number

Hello,

I am running ME21n and need assign below variables for VBA to run in SAP.

I need " 3" to be replaced with something like i+1 in order to continue looping with Numbers ( 4,5,6 and etc ) . Script is working with numbers.

Please, explain in a beginner language. Thanks in advance

Public Sub RunGUIScript()

Dim W_Ret As Boolean
Dim i As Integer
W_Ret = Attach_Session
If Not W_Ret Then
Exit Sub
End If
i = 0

do

objSess.findById("wnd[0]/usr/subSUB0:SAPLMEGUI:0019/subSUB3:SAPLMEVIEWS:1100/subSUB2:SAPLMEVIEWS:1200/subSUB1:SAPLMEGUI:1301/subSUB1:SAPLMEGUI:6000/cmbDYN_6000-LIST").Key = " 3"

i = i + 1

Loop

Sub Startextract()
Dim currentline As Integer
W_System = "BH1100"
RunGUIScript
objSess.EndTransaction