Como exportar datos entre páginas de un Multipage

Tengo una multipage que cuenta con un listbox, y tengo un botón para llevar los datos que se ingresen en esa listbox (ubicada en la página 2 de la multipage) a otro Listbox (ubicado en la página 1 de la multipage), hice este código

Private Sub btnllevar_Click()
'lleva los items a la pagina "Consultar APU"
    For i = 0 To lbAPU.ListCount - 1
        If lbAPU.Selected(i) Then
            frmConsultar.cbxitm.AddItem lbAPU.List(i)
            frmConsultar.lbxAPU.List(frmConsultar.lbxAPU.ListCount - 1, 3) = lbAPU.List(i, 1)
        End If
    Next
MsgBox "Los items han sido enviados"
End Sub

Pero me sale un error en las propiedades de la matriz, alguien me puede ayudar a dar solución a este problema.