ComboBox Daten einlesen

Private Sub UserForm_Initialize()
Dim objDic As Object
Dim lxRow As Long, lLRow As Long
lxRow = 1
lLRow = ActiveSheet.Range("Q" & ActiveSheet.Rows.Count).End(xlUp).Row
On Error Resume Next ' Prevent Error message on duplicate keys
Set objDic = CreateObject("Scripting.Dictionary")
For lxRow = lLRow To 3 Step -1
If ActiveSheet.Cells(lxRow, "Q").Value  "" Then
objDic.Add ActiveSheet.Cells(lxRow, "Q").Value, ActiveSheet.Cells(lxRow, "Q").  _
_
Value
End If
Next lxRow
On Error GoTo 0
ComboBox1.List = objDic.Keys
Set objDic = Nothing
ComboBox1.ListIndex = 0
End Sub

Wenn in Spalte Q keine Einträge sind dann habe ich VBA Fehler, möchte aber gerne eine Info daß keine Daten zur Verarbeitung vorhanden sind.
Außerdem zeigt mir die Box die einmal eingelesen Daten auch dann noch an, wenn ich sie bereits gelöscht habe. Muß ich die Box vor neuem Aufruf leeren und neu einlesen?
Wenn JA wie geht das?
Bitte um Hilfe
Gruß
Leitz G.