regarding creating search box by date

Question

dear all,
good greeting
i need to add a search box by date to my userform this is the code i need to add to it

Dim Litem As Long, LbRows As Long, LbCols As Long
Dim bu As Boolean
Dim Lbloop As Long, Lbcopy As Long

LbRows = ListBox1.ListCount - 1
LbCols = ListBox1.ColumnCount - 1

For Litem = 0 To LbRows
If ListBox1.Selected(Litem) = True Then
bu = True
Exit For
End If
Next
If bu = True Then
With Sheets("SelectedData").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

     For Litem = 0 To LbRows
         If ListBox1.Selected(Litem) = True Then 'Row selected
           'Increment variable for row transfer range
           Lbcopy = Lbcopy + 1
     For Lbloop = 0 To LbCols
                'Transfer selected row to relevant row of transfer range
     .Cells(Lbcopy, Lbloop + 1) = ListBox1.List(Litem, Lbloop)

    Next Lbloop
         End If
     Next
     For M = 0 To LbCols
         With Sheets("SelectedData").Cells(Rows.Count, 1).End(xlUp).Offset(0, M).Borders(xlEdgeBottom)
 .LineStyle = xlContinuous
 .Weight = xlMedium
 .ColorIndex = 30


 Dim WS As Worksheet

Set WS = Sheets("SelectedData")
Dim rowRng As Range
For Each rowRng In WS.UsedRange.Rows
BlanckCellsCount = WorksheetFunction.CountBlank(rowRng)
If BlanckCellsCount <> rowRng.Cells.Count Then
With rowRng
.Borders.Weight = xlThick
.Cells.VerticalAlignment = xlCenter
.Cells.HorizontalAlignment = xlCenter
End With
End If
Next rowRng

 End With

Next
End With

Else
MsgBox "Nothing chosen", vbCritical
Exit Sub

End If
Sheet3.Range("a:i").Cells.Font.Size = 40
Sheet3.Range("a:i").WrapText = True
Sheet3.Range("a:i").Cells.HorizontalAlignment = True

Sheet3.Range("A:I").ExportAsFixedFormat xlTypePDF, Filename:="TEST", OPENAFTERPUBLISH:=True

MsgBox "تم أنشاء التقرير", vbInformation
ListBox1.Clear

End Sub