Contar items de un listbox sin duplicados

Tengo un código que me cuenta los items de una columna de un listbox y me los deja en un textbox,

Pero en la columna del listbox tengo datos duplicados. Lo que necesito es solo que me cuente datos únicos me podrían ayuda por favor

Este es el código que uso ahora

For x = 0 To ListBox1.ListCount - 1
If ListBox1.List(x, 7) <> "" Then
m = m + 1
End If
Next
TextBox6.Value = m