Copy Data Between 2 Dates

I have the following on a user form which works fine.


Private Sub CommandButton1_Click()

Dim rngFind As Range
Dim strFirstAddress As String

With Sheet1.Columns("F:F")
Set rngFind = . Find(TextBox1.Text, LookIn:=xlValues)
If Not rngFind Is Nothing Then
strFirstAddress = rngFind.Address
Do
rngFind.EntireRow.Copy Sheet2.Range("A" & Sheet2.Rows.Count).End(xlUp).Offset(1, 0)
Set rngFind = .FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
End If

End With
End Sub

I would like to have 2 date entry boxes on the user form and have the macro copy any rows where the date in column F equals or falls between them.