gistfile1.txt

Public Function check(text As String) As Boolean
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
    
    Dim reg1 As Object
    Set reg1 = CreateObject("vbscript.regexp")

    reg.Pattern = "^[a-zA-Z][0-9]+$"
    reg1.Pattern = "^TP[0-9]+$"
    
    check = False

    If text = "FOOBAR" Then
        check = True
    End If    
    
    If reg.Test(text) Then
        check = True
    End If
    
    If reg1.Test(text) Then
        check = True
    End If
End Function