Filter By Date & Use Filtered Data In ListBox

I have been advised to use this code to search for my spreadsheet for dates

Sub FilterTo1Criteria()
With Sheet1
.AutoFilterMode = False
. Range("a1:d1"). AutoFilter
.Range("a1:d1").AutoFilter Field:=2, Criteria1:={date entered here]
End With
End Sub

It works but i have two problems

1:Instead of typing the date I want to be able to type a date into a textbox in a userform, is this possible?

2: How would I then go about inputting this data into a list box in a userform?