Data Base UserForm - Clear ListBox

I have the existing code below. What I would like to do is clear the ListBox of all previous records found prior to the next Find All event occurring. For Example I search for "M" and it finds 3 records and these are listed in the ListBox for the user to select from, then if the user searches for "Grealy" it finds 1 record and puts it in the list but the 2nd and 3rd record from the previous Find All event still remain.

I tried using the following code

Me.ListBox1.Clear

which clears the listbox but then as soon as you hit Find All following the above mention sequence you get the result as outlined.

Private Sub cmdFind_Click()
Sheet1.Select
Dim strFind, FirstAddress As String 'what to find
Dim rSearch As Range 'range to search
Set rSearch = Sheet1.Range("b2", Range("b65536").End(xlUp))
strFind = Me.TxtEmpName.Value 'what to look for
Dim f As Integer