Contar items de un listbox

[ruthesme]

APENAS ME ESTOY ADENTRANDO EN EL TEMA DE LAS MACROS EN EXCELL Y NECESITO CONTAR LOS ITEMS DE UN LISTBOX EL CUAL LLENO CON EL CODIGO SGTE., AYUDEMNE POR FAVOR...GRACIAS

Private Sub CommandButton1_Click()

With Hoja2
.[C2] = "*" & TextBox1 & "*"
.[A1].CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=.[C1:C2], _
CopyToRange:=.[D1], Unique:=False

If .[D2] = Empty Or TextBox1 = Empty Then

ListBox1 = Empty

Else

Dim Lrange As Range
Dim x As Variant

Set Lrange = Hoja2.Range("D2:D150")

For Each x In Lrange

ListBox1.AddItem x.Value

Next x

End If
End With


End Sub