Listbox - contar itens repetidos

Bom dia pessoal,
estava lendo o forum antes de cadastrar e nao consegui achar algo relacionado com itens repetidos...
Tenho uma listbox que carrega atraves das planilhas e gostaria que contasse os itens repetidos.

EX:

A coluna A,B, C da planilha1 carrega Estado, Cidade e Residencial respectivamente.
Na listbox aparece assim.



Acre - Rio Branco - Residencial X
Acre - Rio Branco - Residencial y
Acre - CidadeQualquer - Residencial H



Gostaria que contasse quantas cidades possuem no estado, ou seja 2. Com o listcount consigo o total de registro nao o numero certo de cidade.
Desde já agradeço pessoal.  

Olá, seja bem vindo ao fórum! Explique melhor. Aonde quer que esse resultado apareça? Em um campo no formulário?

Em um campo.

Segue em anexo um print pra melhor entendimento.

Ah, você quer o total de cidades não repetidas e não o total de uma única cidade, que foi o que entendi a princípio. Coloque uma função no topo do VBA do formulário, logo depois das linhas Option Compare Database e Option Explicit (caso essa última ainda não exista, coloque-a). A função seria algo assim:

Código:

Private Function tCid() As Integer
        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT NomeCampoCidadeNaTabela FROM NomeDaTabela WHERE NomeCampoEstadoNaTabela='" & Me.NomeCampoEstadoNoFormulário & "'")
                tCid = rs.RecordCount
        rs.Close
        Set rs = Nothing
End Function

Na origem desse campo, coloque: =tCid()