Asignar item escogidos a un array excel

Estimados sucede que tengo un listbox donde puedo seleccionar uno o varios item de dicho listbox, me gustaría meter en un array los item seleccionados por el usuario sin embargo no logro hacerlo, el código que tengo es el siguiente:

For i = 0 To lst_Diario.ListCount - 1
If lst_Diario.Selected(i) = True Then
   valor = Array(lst_Diario.List(i))
j = j + 1
End If
Next i

Sin embargo la variable valor solo toma el item seleccionado si existe un segundo lo reemplaza, me gustaría que me pudiesen ayudar.