Bestimmten Listboxeintrag markieren

ich möchte in einer Listbox in bestimmten Fällen den Eintrag über dem angeklickten markieren. Ich bekomme das aber nicht hin.
Mein Ansatz:

Private Sub ListBox1_Click()
  If ListBox1.List(ListBox1.ListIndex, 0) = "" Then
    ListBox1.ListIndex = ListBox1.ListIndex - 1
    'HIER sollte dann der neue Listeneintrag markiert werden
  End If
End Sub