Não sei se há um comando específico pra isso, mas vc pode fazer uma função:

Private sub Contar()

  dim wString as string, Qtd as Integer, wCarac as string

  wCarac = " "

  Qtd = contaCaracter(wString,wCarac)

  msgbox "Esta string tem " & Qtd & " caracteres iguais ao informado"

end Sub

Private Function ContaCaracter(wString as string, wCaracter as string) as integer

  dim I as integer, wQtd as integer

  for i = 1 to len(wString)

     if mid(wstring,i,1) = wCaracter then

        wqtd = wqtd + 1

     endif

  next 

  ContaCaracter = wqtd

End Function

Vc pode usar este comando

 

Dim P As Long, MaxPos As Long, i As Long

sLine = "Fabio;teste;teste"

P = InStr(sLine, ";")

Retorna  P = 2

 

Espero ter ajudado