Visual Basic para Aplicaciones - Insertar datos abajo de una fila cualquiera en LISTBOX

Buenas Noches :

Para llenar la LISTBOX llamado LISTASELECCIONADOS los cargo de una columna de una hojax

y queda como esta la foto de abajo, si quiero agregar al final algun dato en la LISTBOX uso el siguiente procedimiento y funciona :

tamano = Me.LISTASELECCIONADOS.ListCount
Me.LISTASELECCIONADOS.AddItem
Me.LISTASELECCIONADOS.List(tamano, 0) = variable1
Me.LISTASELECCIONADOS.List(tamano, 1) = variable2


como insertaria los valores de variable1 y variable2 despues de la seleccion que esta en azul y que en vez de 3 filas fueran 4.

Gracias por lo que me puedan ayudar o comentar para hacerlo
Saludos
JAG

El segundo argumento de AddItem indica la posición donde se inserta el elemento