Esta primeira função vc pode colocar num módulo, ou no seu form

=================================================

 

Public Function ContaCaracter(ByVal oTxt As TextBox, ByVal sCarac As String) As String
    'oTxt = é onde vc tera que inserir o nome do seu textbox
    'sCarac = é o caracter a ser contado
   
    Dim viA, iContador As Integer
   
    iContador = 0
   
    'aqui um loop simples pra rodar dentro do textbox
    'quando for o caracter especificado na funçao
    'soma + 1 na variavel icontador
    For viA = 1 To Len(oTxt.Text)
        If Mid(oTxt.Text, viA, 1) = sCarac Then iContador = iContador + 1
    Next viA
   
    'Aqui retorna o resultado do icontador para
    'a variavel que chamou a função
    ContaCaracter = iContador
End Function

 

===================================

Aqui vc coloca dentro de um botão só para ver

o resultado da função no caso aqui foi colocado

num botao chamado Command1...

===================================

Private Sub Command1_Click()
    Dim sRes As String
   
    'aqui é a variavel que irá receber o resultado
    'da função ContaCaracter

    'Text1 é o nome do textbox, no lugar vai o seu

    '  "/" é o caracter que quer que seja contado
    sRes = ContaCaracter(Text1, "/")
   
    'Aqui mostra num MessageBox o valor que
    'foi adquirido pela variavel sRes
    MsgBox "Nro de ocorrências do caracter --> " & sRes

    'Ai é só ajusta-la para usar a seu modo
    'ou pegar a ideia e modificar como queira...
End Sub

 

abs...