shifting columns

This is an example of the code I am using to populate textboxes a user form.

sub form1 initialize()
dim i as integer
with me
for i = 0 to 4
form1.controls("textbox" & (1+i)).value=worksheets("sheet2").range("a"&(2*i+4)).value
next i
end with

now I need to shift over columns instead of down rows... I had hoped that it would be as simple as this:

sub form1 initialize()
dim i as integer
with me
for i = 0 to 4
form1.controls("textbox" & (1+i)).value=worksheets("sheet2").range(("a" + i) &"2").value 'or something similar
next i
end with

but it is not. I know this has to be a simple fix but I just do not know it, any help would be greatly appreciated.