Как подправить регулярное выражение - VB

Формулировка задачи:

Доброго всем дня
подскажите как правильно написать регулярное выражение, чтобы проверялись точные условия в названии файлов?
например:
1. „17 цифр”_”8 цифр”_TZP.dgn
2. „17 цифр”_”8 цифр”_TZPS.dgn
сейчас получается так, что если название файла такое:
01888480030001002_20110609_TZP.dgn
то он заходит и проходит проверку на rex.Pattern = "^\d{17}_\d{8}_TZP$"
а если файл называется
01888480030001002_20110609_TZPS.dgn
то он заходит и проходит проверку rex.Pattern = "^\d{17}_\d{8}_TZPS$", но почему-то еще и заходит на проверку rex.Pattern = "^\d{17}_\d{8}_TZP$" и в этом случае выдается результат Not Valid TZP.
что надо исправить чтобы проверка на шаблоне делалась только в случае полного соответствия в названии?

tzp = "TZP"
  tzps = "TZPS"
  
    check = InStr(str, tgp)
  If check <> 0 Then
    Set rex = CreateObject("VBScript.RegExp")
    rex.Pattern = "^\d{17}_\d{8}_TZP$"
     If rex.Test(str) Then
      Debug.Print "Valid TZP"
    Else
      Debug.Print "Not Valid TZP"
    End If

  End If
  
   check = InStr(str, tgps)
  If check <> 0 Then
    Set rex = CreateObject("VBScript.RegExp")
    rex.Pattern = "^\d{17}_\d{8}_TZPS$"
     If rex.Test(str) Then
      Debug.Print "Valid TZPS"
    Else
      Debug.Print "Not Valid TZPS"
    End If

  End If

Решение задачи: «Как подправить регулярное выражение»

textual
                            Листинг программы 
                        
                            And IsNumeric(a(3)) <= 99