Visual Basic - Listbox de excel

Hola
primero deben saber que estoy programando un macros en excel . priemro hago lo que necesito en visual 6.0 donde core super bien pero cuando lo hago en el editor de visual en excel tengo u n problema esta es el codigo que uso para enviar archivos de un listbox a otro. pero cuando lo ejecuto paso paso , dice que listbox2.list(j) es nulo y por eso no puedo agragar los archivos del listbox . como puedo contrarestar el valor del list.

Private Sub agregarfiles_Click()
Dim i
Dim j As Integer

For i = 0 To ListBox1.ListCount - 1
For j = 0 To ListBox2.ListCount
\'ListBox2.Object = Not Null
\'ListBox2.List(1) = hola
If ListBox1.Selected(i) Then
If ListBox1.List(i) = ListBox2.List(j) Then

Exit Sub

End If
End If
Next j

If Not ListBox1.List(i) = ListBox2.List(j) Then
If List1.Selected(i) Then

If ListBox1.List(i) <> ListBox2.List(j) Then
ListBox2.AddItem ListBox1.List(i)

Else
End If

Else
End If
End If
Next i
End Sub
Gracias por la ayuda