Userform - ListBox items added based on Combobox value selected

I think that something like this would work

Dim oneCell as Range

ListBox1.Clear
For each oneCell in Range(Range("A1"), Range("A65536").End(xlUp))
    If oneCell.Value = ComboBox1.Text Then 
        ListBox1.AddItem oneCell.EntireRow.Range("D1").Value
    End If
Next oneCell