条件と一致するファイルをヒットさせる正規表現

否定形ではない形で条件を書いてみると、
　・(A,数字以外の文字).TXT で終わる場合、条件に当てはまる
　・(A以外の文字)数字.TXT で終わる場合、条件に当てはまる
正規表現としては、これらを | で連結します。

Private Sub TestRegExp()

'ファイル名
Dim fileName As String

fileName = "TEST.TXT" '1 true
fileName = "TESAT.TXT" '2 true
fileName = "TESA1T.TXT" '3 true

fileName = "TESTBH.TXT" '4 true
fileName = "TESTBH1.TXT" '5 true
fileName = "TESTBH10.TXT" '6 true
'
fileName = "TESTA.TXT" '7 false
fileName = "TESTA1.TXT" '8 false
fileName = "TESTA10.TXT" '9 true

fileName = "1.TXT" '10 true
fileName = "A.TXT" '11 false
fileName = "B.TXT" '12 true

Dim RetStr As String
Dim regEx As Object

Set regEx = New RegExp

'正規表現パターン
regEx.pattern = "((^[0-9]|[^A0-9]|[^A][0-9])\\\\.TXT$)"

regEx.IgnoreCase = True

regEx.Global = True

If regEx.test(fileName) Then
Debug.Print "true"
Else
Debug.Print "false"
End If

End Sub

' わかり易い書き方版(冗長です)
're.Pattern = "^([0-9A-Z]*([B-Z]|[0-9B-Z][0-9])|[0-9])\\\\.TXT$"