Tronquer une chaine de caractère

Bonjour

Je voudrais supprimer le dernier caractère du contenu d'une cellule, seulement si ce contenu commence par le chiffre 5.
Exemple: j'ai dans une cellule 5wk76024d, je veux supprimer le "d", comment je dois faire?

If "le premier carctère est un "5" then

"Eliminer le dernier caractère "

end if

Merci

=SI(GAUCHE(A1;1)="5";CNUM(GAUCHE(A1;NBCAR(A1)-1));A1)

Merci stephane

Mais je cherche le code Visual basic

Merci

If Mid([A1], 1, 1) = 5 Then [B1] = Mid([A1], 1, Len([A1]) - 1) Else [B1] = [A1]