Get combo box value (worksheet combo box) by index number

I want to output the values of a combo box into a spreadsheet using the index of the combo box.

I have tried something like this but obviously that is not correct as it isn't working. Can anyone help?

DIM R, LR as long

LR = Sheets(1).range("A" & rows.count).end(xlup).row

for R = 0 to LR -1 Step 1
Sheets(1).range("Z" & LR).value = sheets(1).cboEID.index(R).value
next R