limit function name highlighting

fix #52
- known issue: highlight in `Call funName()` also removed

Author: serkonda7

syntaxes/tests/array.bas

@@ -0,0 +1,9 @@
+' SYNTAX TEST "source.vba" "array syntax"
+
+Dim curExpense(364) As Currency
+'   ^^^^^^^^^^ - entity.name.function.vba
+Dim intI As Integer
+For intI = 0 to 364
+    curExpense(intI) = 20
+'   ^^^^^^^^^^ - entity.name.function.vba
+Next

syntaxes/tests/procedure.bas

@@ -23,7 +23,7 @@ End Function
 ' <------------ keyword.other.vba
 
 Function withParam(Optional ByVal p1 As MyType, _
-' <---- keyword.other.vba
+' <-------- keyword.other.vba
 '        ^^^^^^^^^ entity.name.function.vba
 '                  ^^^^^^^^ keyword.control.vba
 '                           ^^^^^ keyword.control.vba
@@ -36,7 +36,3 @@ Function withParam(Optional p1 As MyType)
 '                  ^^^^^^^^ keyword.control.vba
 End Function
 ' <------------ keyword.other.vba
-
-Call Mod.mSub()
-' <---- keyword.other.vba
-'        ^^^^ entity.name.function.vba

syntaxes/tests/visibilityKeywords.bas

@@ -1,4 +1,4 @@
-' SYNTAX TEST "source.vba" "module level variable declaration"
+' SYNTAX TEST "source.vba" "module scope visibility modifiers"
 
 Public strName As String
 ' <------ keyword.other.visibility.vba

syntaxes/vba.tmGrammar.yml

@@ -11,8 +11,7 @@ patterns:
   - include: "#storage"
   - include: "#strings"
   - include: "#types"
-  - name: entity.name.function.vba
-    match: (?i:\b[a-zA-Z][a-zA-Z0-9_]*\b)(?=\(\)?)
+  - include: "#functions"
   - name: constant.other.vba
     match:  _(?=\s*\n)
 
@@ -39,6 +38,10 @@ repository:
       - name: constant.language.vba
         match: (?i)\b(Empty|False|Nothing|Null|True)\b
 
+  functions:
+    name: entity.name.function.vba
+    match: (?i:\b(?<=(Function|Sub)\s)[a-zA-Z][a-zA-Z0-9_]*\b)(?=\(\)?)
+
   numbers:
     patterns:
       - name: constant.numeric.date