Hi Guys

I have created a UserForm to add data to which is working fine.

I have added a search button to search for the data and pull it back to the UserForm I have created but am getting the following
error
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Wrong number of arguments or invalid property assignment
---------------------------
OK Help
---------------------------


Please find below the code I have so far

Private Sub cmdAdd_Click()
Dim RowCount As Long
Dim ctl As Control
'check users input
If Me.txtMprn.Value = "" Then
MsgBox " Please Add a Mprn.", vbExclamation, "Address Amendment"
Me.txtMprn.SetFocus
Exit Sub
End If
If Me.txtCRN.Value = "" Then
MsgBox "Please Add Conquest Ref Number.", vbExclamation, "Address Amendment"
Me.txtCRN.SetFocus
Exit Sub
End If
If Me.txtHouse.Value = "" Then
MsgBox "Please Add House Number or Name.", vbExclamation, "Address Amendment"
Me.txtHouse.SetFocus
Exit Sub
End If
If Me.txtStreet.Value = "" Then
MsgBox "Please Add Street Name.", vbExclamation, "Address Amendment"
Me.txtStreet.SetFocus
Exit Sub
End If
If Me.txtPost.Value = "" Then
MsgBox "Please Add Postcode.", vbExclamation, "Address Amendment"
Exit Sub
End If
'Write the date to Spreadsheet
RowCount = Worksheets("Address Amendment").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Address Amendment").Range("A1")
.Offset(RowCount, 0).Value = Me.txtMprn.Value
.Offset(RowCount, 1).Value = Me.txtCRN.Value
.Offset(RowCount, 2).Value = Me.txtHouse.Value
.Offset(RowCount, 3).Value = Me.txtStreet.Value
.Offset(RowCount, 4).Value = Me.txtPost.Value
.Offset(RowCount, 5).Value = Format(Now, "dd/mm/yyyy hh:mm:ss")
End With

'Clear the form
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
ctl.Value = ""
End If
Next ctl
MsgBox " Data Entered Succesfully", vbOKOnly, ("Data Entry Confirmation")

End Sub
Private Sub cmdClear_Click()
If MsgBox("Would you like to save your work now?", vbYesNo, ("Confirm Saving Data Entry")) = vbNo Then
ThisWorkbook.Saved = True
Unload Me
ThisWorkbook.Close
Else
ThisWorkbook.Save
Unload Me
End If
End Sub

Private Sub cmdSearch_Click()
'Show Records

Dim Foundit  As Range
Dim CRN  As Double
Dim Rng As Range
Dim StartAddx As String
CRN = Val(TextBox1.Value)

Set Rng = Range("A1").CurrentRegion.Columns(1).Cells

Set Foundit = Rng.Find(CRN, , , x1Values, x1Whole, x1ByRows, x1Next, False, False, False)

If Foundit Is Nothing Then
MsgBox "CRN is Not Found."
Exit Sub
End If

StartAddx = Foundit.Address

ListBox1.Clear

Do
Row = Foundit.Row
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = Cells(Row, "B").Text
.List(.ListCount - 1, 0) = Cells(Row, "A").Text
.List(.ListCount - 1, 0) = Cells(Row, "C").Text
.List(.ListCount - 1, 0) = Cells(Row, "D").Text
.List(.ListCount - 1, 0) = Cells(Row, "E").Text
End With
Set Foundit = Rng.FindNext(Foundit)
If Foundit Is Nothing Then Exit Do
If Foundit.Address = StartAddx Then Exit Do

Loop
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "Please use the Close Form button!"
  End If

End Sub
Thanks for your help