Excel - Ejemplo MID

estimados me podrían mandar un ejemplo con el MID .. q me cuente cuantas veces se repite un caracter en una celda?
Saludos
am

una forma sencilla de hacerlo

Sub Contar_a()
Dim i%, c&, s$, chr$, Count&
s = "texto"
c = Len(s)

For i = 1 To c
chr = Mid(s, i, 1)
If chr = "a" Then Count = Count + 1
Next
End Sub

Saludos desde Baires, JuanC