diff --git a/syntaxes/tests/vba/io.bas b/syntaxes/tests/vba/io.bas
index cbac07c..e68d7fb 100644
--- a/syntaxes/tests/vba/io.bas
+++ b/syntaxes/tests/vba/io.bas
@@ -2,9 +2,10 @@
 
 Open "file" For Input As #f
 ' <--- keyword.io.vba
-'               ^^^^^ keyword.io.vba
+'               ^^^^^ - keyword.io.vba
     Input #f myVar
 '   ^^^^^ keyword.io.vba
+'        ^^^ - keyword.io.vba
 
     Line Input #f myLineVar
 '   ^^^^^^^^^^ keyword.io.vba
diff --git a/syntaxes/vba.tmGrammar.yml b/syntaxes/vba.tmGrammar.yml
index 94d0fac..4ba1cc8 100644
--- a/syntaxes/vba.tmGrammar.yml
+++ b/syntaxes/vba.tmGrammar.yml
@@ -46,7 +46,9 @@ repository:
       - name: keyword.control.vba
         match: (?i:(\b(Exit (Function|Property|Sub)|As|And|By(Ref|Val)|Goto|Is|Like|Mod|Not|On Error|Optional|Or|Resume Next|Stop|Xor|Eqv|Imp|TypeOf|AddressOf)\b)|(\b(End)\b(?=\n)))
       - name: keyword.io.vba
-        match: (?i:\b(Open|Close|(Line )?Input|Lock|Unlock|Print|Seek|Width|Get|Put|Write)\b)
+        match: (?i:\b(Open|Close|Line Input|Lock|Unlock|Print|Seek|Width|Get|Put|Write)\b)
+      - name: keyword.io.vba
+        match: "(?i:\\b(Input)(?= #))"
       - name: keyword.other.vba
         match: (?i:\b(Attribute|Call|End (Function|Property|Sub|Type|Enum)|(Const|Function|Property|Sub|Type|Enum)|Declare|PtrSafe|WithEvents|Event|RaiseEvent|Implements)\b)
       - name: keyword.other.option.vba