for x = 1 to cboBank.listcount cboBank.ListItem = x if cboBank.ListItem = gcBank Then Exit EndIf Next