Extraction dans une formule en VBA

Bonjour,

Je suis débutant sur ce forum je vais donc essayer d'être clair et préçis avec mes questions. Je dois, pour boucler sur un tableau de données, extraire le début d'une formule sous excel pour synthètiser un type de formule bien prèçis le tout en VBA. Formules à détecter: =XCalcO(). J'ai essayer avec la fonction Left ce qui donne: If Left(ActiveCell.Value, 4) = "=XCa" Then ... Cela ne fonctionne pas du tout et je n'ai pas trouvé d'autres astuces pour le moment.
Merci à celui ou à ceux qui pense connaitre la solution.