Cómo contar en una columna de un listBox 25 datos diferentes y mostrarlos en Label, como si fuese un Contar.Si

[jalomiva]

Hola a los foreros y maestros del foro, tengo un duda que seguro que me daréis solución, en un listBox tengo una columna llenas de códigos ( al mes me genera mas de 1000 codigos en total)  estos van del B01 al B25, con el siguiente macro solo me reporta uno, he probado  y no se como  hacerlo para que me reporte la información de los 25 codigos y me cuente los generados (ejemplo B01 =124 ,  B02=78,  B03=189 ..etc) mi nivel de macros es de un principiante. Gracias por adelantado

Private Sub CommandButton2_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i, 5) = "B01" Then

Contador = Contador + 1
End If
Next i

Label3 = "B01 = " & Contador
End Sub

[Antoni]

Sube tu archivo y pon un ejemplo de lo que tienes y de lo que quieres.

[jalomiva]

se me olvidó adjuntar el archivo

Prueba_V1.rar

[Antoni]

Te dejo la solución, pero con una propuesta funcional distinta a la que tu planteas.

Prueba_V1.xlsm

[jalomiva]

Antoni, me quito el sombrero, lo que es casi imposible para mi, tu lo haces fácil muchas gracias.