copier une partie de chaîne de caractères

Bonjour à toutes et à tous ! Déjà bonne année 😁 Je souhaiterai copier une partie d'une chaîne de caractères, SI elle contient dans les 2 premiers caractères "3D". Ci-après un exemple : C = 3D Chaîne de caractères If C Like "*3D*" Then MsgBox C End If Ceci ne me suffit pas, il...