Allow custom types with underscore and numbers (#88)

Author: DecimalTurn

syntaxes/tests/vba/types.bas

@@ -32,13 +32,23 @@ Dim v as Variant
 Dim spam as MyVarType
 '           ^^^^^^^^^ support.type
 
-Sub eggs(p As ParamType) as RetType
-'             ^^^^^^^^^ support.type
-'                           ^^^^^^^^ support.type
+Dim rm As REMOTE_MEMORY2
+'         ^^^^^^^^^^^^^^ support.type
+
+Function eggs(p As ParamType) as RetType
+'                  ^^^^^^^^^ support.type
+'                                ^^^^^^^ support.type
+End Sub
+
+Sub InitRemoteMemory(ByRef rm As REMOTE_MEMORY2)
+'                                ^^^^^^^^^^^^^^ support.type
 End Sub
 
 Dim myConverter As DateConverter
 '                  ^^^^ - support.type.builtin.vba
 
+Dim se As String_Extension2
+'         ^^^^^^ - support.type.builtin.vba
+
 ConvertAs myVar, myConverter
 '         ^^^^^ - support.type

syntaxes/vba.tmGrammar.yml

@@ -82,7 +82,7 @@ repository:
     patterns:
       - name: support.type.builtin.vba
         match: (?i)\b(Any|Byte|Boolean|Currency|Collection|Date|Double|Integer|Long(Long|Ptr)?|Object|Single|String|Variant)\b
-      - match: (?i)(?<= As )([a-zA-Z]+)
+      - match: (?i)(?<= As )([a-zA-Z][a-zA-Z0-9_]*)
         captures:
           1:
             name: support.type