Visual Basic - Problemas con ListBox

Necesito que alguien me ayude con esto. Les muestro el codigo y lo explico.
While Not miRecordset.EOF
iRegistros = CInt(iRegistros) + 1
lstResultados.AddItem (miRecordset("Descripcion"))
lstResultados.ItemData(lstResultados.NewIndex) = miRecordset("codigo")
miRecordset.MoveNext
Wend

Lo anterior lo hago con el fin de que al hacer DobleClick en un elemento del ListBox uno pueda rescatar mas infomarción del mismo, por eso es que en el itemData guardo el Codigo del Producto. Pero se me cae al tratar de guardar Codigos con Letras. Ej: Codigo = 221A.
Como puedo salvar eso? o bien, existe otra forma de poder rescatar el codigo al hacer doble click en el registro de la lista y asi poder ver mas informacion del producto?
Gracias

Eso se debe a que el indice debe ser un valor numerico. Si lo que quieres es poder mostrar el producto y el codigo en una lista, puedes usar el msflexgrid o el listview, ya que estos controles te permiten colocar varias columnas, y soportan el evento dblclick.