vba combobox list on Userform has blanks

[snb]

@Georgi

Private Sub UserForm_Initialize()    
 sn = Sheets("domain.cards").Range("C4:C500")

 With CreateObject("scripting.dictionary")
   For j = 1 to ubound(sn)
     if sn(j,1) <> "" then x0 = .item(sn(j,1))
   Next

   If .Count Then Combo_search_status.List = .keys
 end with
End Sub