LIST1和LIST2对比，找出LIST1在LIST2中没有的，然后加到LIST3中

LIST1中的内容
list1.list(0)="张三"
list1.list(1)="李四"
list1.list(2)="小明"

LIST2中的内容
list2.list(0)="小李"
list2.list(1)="张三"
list2.list(2)="李四"

COMMAND1代码
Private Sub Command1_Click()
Dim a, b

For a = 0 To List1.ListCount - 1
  For b = 0 To List2.ListCount - 1
   
    If List1.List(a) <> List2.List(b) Then
       List3.AddItem List1.List(a)
    End If
  Next
  Next

End Sub

现在是点了COMMAND1 LIST3中有相同的
LIST3中的内容
list3.list(0)="张三"
list3.list(1)="张三"
list3.list(2)="李四"
list3.list(3)="李四"
list3.list(4)="小明"
list3.list(5)="小明"
list3.list(6)="小明"

我想要的结果是：LIST3
应该只有
list3.list(0)="小明"

不知道怎么写代码，小弟是新手，想了3天也没有想到。

没有人回复我，还是我没有表达清楚？？？

谢谢 wangtuan7788 和所有给我回复的朋友.