Sub ou fonction non définie avec STXT

Bonjour,

Je suis débutant dans le langage informatique. Voile le petit bout de code que j'ai implémenté :


1 Sub essai()
2
3 Dim time As String
4
5 Worksheets("feuil1").Select
6 Range("A1").Activate
7 time = STXT(A1, 1, 4)
8 Range("c1").Value = time
9
10 End Sub

En gros je souhaite récupérer dans la cellule C1 quelques caractère de la chaine de caractère se trouvant dans la cellule A1.
Lorsque je souhaite exécuter, voici le message qui apparait :

" erreur de compilation
sub ou fonction non définie "

J'ai l'impression que la fonction STXT n'est pas reconnue par VBA ...
Pouvez vous m'aider ?
Merci d'avance