Einlesen der ListBox (VB6) ohne leer Zellen

Ich habe über VB6 ein Programm geschrieben
Das ganz gut ist.
Wäre da nicht das einlesen der Spalte ohne leer Zellen.
In Spalte C erscheint zum bestimmten Datum
der Text ( Termin ).
In Spalte F sind die Kundennamen eingetragen.
Wen in Spalte C Termin erscheint möchte ich nur die
Namen der dazugehörigen Kunden in der ListBox einlesen.

Private Sub Kunden_liste()
Dim X%
List2.Clear
For X = 4 To 500
List2.AddItem (Excel.cells(X, 3))
Next
List2.ListIndex = 0
End Sub