Récupération caractères dans titre fichier excel

Bonsoir à tous,
Voilà j'utilise une macro pour ouvrir un fichier excel.
Ce que je voudrais, c'est pouvoir récupérer deux mots de ce titre.
Ce titre contient deux versions de bases de données et ressemble à cela:

AdNat_VED_PARIS36_051107_VED_PARIS31_070807_Totale-071106.csv

dans ce cas je voudrais récupérer dans une textbox le mot "PARIS36"
et dans une deuxièmre textbox, le mot "PARIS31"

le problème est que la seule chose qui ne varie pas dans le titre est les deux PARISXX alors que le reste peux changer.

à savoir que j'utilise ce code pour ouvir le fichier:

Dim vFich, sFiltre$
sFiltre = "Comma Separated Value (*.csv),*.csv" ' <- ou autre...
ChDir CurDir
vFich = Application.GetOpenFilename(sFiltre)
If VarType(vFich) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=vFich, DataType:=xlDelimited, semicolon:=True
Range("A:A").TextToColumns semicolon:=True
End If
TextBox1.Value = vFich


je ne sais pas comment puis je faire.

Pouvez vous m'aider?
merci d'avance