Dim MyCheck
MyCheck = "aBBBa" Like "a*a" ' Возвратит True.              'понял
MyCheck = "F" Like "[A-Z]" ' Возвратит True.               ' догадываюсь 50:50
MyCheck = "F" Like "[!A-Z]" ' Возвратит False.             ' догадываюсь 50:50
 50 :50MyCheck = "a2a" Like "a#a" ' Возвратит True.                 'понял
MyCheck = "aM5b" Like "a[L-P]#[!c-e]" ' Возвратит True.  ' не понял
MyCheck = "BAT123khg" Like "B?T*" ' Возвратит True.        'понял
MyCheck = "CAT123khg" Like "B?T*" ' Возвратит False.       'понял

myString = "312T-87GD-8922"
If myString Like "###[A-Z]-##[A-Z][A-Z]-####" Then ...  ' догадываюсь 50:50


Спец-символы в маске:

? Любой одиночный символ
* Ноль или более символов
# Любая одиночная цифра ( 0 – 9 ).
[charlist] Любой одиночный символ в классе символов (списке)
[!charlist] Любой одиночный символ не принадлежащий классу символов