Sanırım bu şekilde sayfasızda oldu.
Listbox2 için kodları eklemiştim.Şimdi diğer eklediğim kodları yazayım.
Kodların en üstüne

Dim dict As Object

ekledim.
Sonra Private Sub TxtAra_Change() kodunada  alttaki kodu ekledim.

        For i = 0 To ListBox1.ListCount - 1

            If dict.exists(ListBox1.List(i)) Then

                ListBox1.Selected(i) = True

            End If

        Next

Ve diğer kodlarda altta.

Private Sub ListBox1_Change()

    Dim son As Long, aranan As Long, indexNo As Long

    

    indexNo = ListBox1.ListIndex

    If indexNo > 0 Then

        aranan = ListBox1.List(indexNo)

        If dict.exists(aranan) = False Then

            If ListBox1.Selected(indexNo) = True Then

                dict.Add aranan, 0

            End If

        Else

            If ListBox1.Selected(indexNo) = False Then dict.Remove (aranan)

        End If

    End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    Set dict = Nothing

End Sub