特定の文字に続く場合を除去したい（Excel VBA）

Question

お世話になります。

下記は、アルファベット「Ｔ」と、それに続く通し番号を一つのパターンとして
抽出するマクロです。

temp = "T10T11PT12T13"

の中の、「PT12」を抽出しないようにしたいのですが、この場合、正規表現のパターンを
どのように記載すれば良いでしょうか。
※現状は、「PT12」も「T12」として抽出してしまいます。

Sub test()

    Dim myReg   As RegExp
    Dim mc      As Object
    Dim temp    As String
    Dim buf()   As String
    Dim i       As Integer
    Dim j       As Integer
    
    temp = "T10T11PT12T13"
    
' Microsoft VBScript Regular Expansions 5.5 を参照設定済み。
    Set myReg = New RegExp
    
    With myReg    
        .Pattern = "T\d*"
        .Global = True
        Set mc = .Execute(temp)
        
        If .test(temp) Then        
            For j = 0 To mc.Count - 1
                ReDim Preserve buf(i)
                buf(i) = mc(j)
                i = i + 1
            Next        
        End If
    
        MsgBox Join(buf, vbCrLf)    
    End With

End Sub

参考：
本プログラムは更にアレンジして、工作機械の加工プログラム（Ｇコード）編集に使用する予定です。
「Ｔ」は「ツール＝刃物」を指していて、例えば「T10」は「10番目の刃物」ということになります。
Ｔの前にどのようなアルファベットや記号、数字が来ても意味が変わることはないのですが、唯一

PT

のときにだけ、「ＰＴネジ」というネジの種類を指す言葉になります。そのため、加工プログラムの
コメント文に書かれた「ＰＴ１／８」を「Ｔ１」と見なしてしまう現象が発生し、苦慮しております。

ご教示のほど、宜しくお願い致します。

Answer 1

.Pattern = "P*T\d*"ではどうでしょうか？パターンがPTまたはTの場合のロジックです。

Comments

[Wolf]

回答、ありがとうございます。試してみました。
その場合、「PT12」として抽出してしまいますが、
後処理でPから始まるものを別途除外すれば、うまく
いきそうです。

Answer 2

先読み、後読み、正規表現 で調べると良いですよ。

(?<!P)T\d
とか？

https://abicky.net/2010/05/30/135112/

試してませんが、、、

Comments

[Wolf]

早速の回答、ありがとうございます。ご教示いただいたリンク先などを確認してみます。

ちなみに、「(?<!P)T\d」で試してみたところ、「Excecuteメソッドは失敗しました」と
エラーメッセージが出てしまいました（＞＜）

[hikochang]

vbsのregexpではサポートしてませんでした、、、
ごめんなさい。

[Wolf]

いえいえ、そのような手法が使える場もあるということで、大変参考になりました。
ありがとうございます。