Probleme d'étiquette et de Goto

Bonjour,
Voilà mon problème est le suivant je rentre ce code :

Private Sub Drive1_Change()
    On Error GoTo etiquette
    Dir1.Path = Drive1.Drive
End Sub

etiquette:
MsgBox "erreur"
End Sub

Et j'obtient l'erreur suivante : "Erreur de compilation : Etiquette non définie"...
Je ne voi pas du tout pourquoi j'ai cette erreur alors que j'ai bien defini mon etiquette...
Merci de votre réponse