Fall back on compilation option

Author: GrahamTheCoder

CodeConverter/CSharp/DeclarationNodeVisitor.cs

@@ -84,14 +84,14 @@ public override async Task<CSharpSyntaxNode> VisitCompilationUnit(VBSyntax.Compi
             var options = (VBasic.VisualBasicCompilationOptions)_semanticModel.Compilation.Options;
             var importsClauses = options.GlobalImports.Select(gi => gi.Clause).Concat(node.Imports.SelectMany(imp => imp.ImportsClauses)).ToList();
 
-            var optionCompareText = node.Options.Any(x => x.NameKeyword.ValueText.Equals("Compare", StringComparison.OrdinalIgnoreCase) &&
-                                                       x.ValueKeyword.ValueText.Equals("Text", StringComparison.OrdinalIgnoreCase));
             _topAncestorNamespace = node.Members.Any(m => !IsNamespaceDeclaration(m)) ? options.RootNamespace : null;
-            _visualBasicEqualityComparison.OptionCompareTextCaseInsensitive = optionCompareText;
+            var fileOptionCompareValue = node.Options.Where(x => x.NameKeyword.IsKind(VBasic.SyntaxKind.CompareKeyword)).LastOrDefault()?.ValueKeyword;
+            _visualBasicEqualityComparison.OptionCompareTextCaseInsensitive = fileOptionCompareValue?.IsKind(VBasic.SyntaxKind.TextKeyword) ?? options.OptionCompareText;
 
             var attributes = SyntaxFactory.List(await node.Attributes.SelectMany(a => a.AttributeLists).SelectManyAsync(CommonConversions.ConvertAttributeAsync));
+
             var sourceAndConverted = await node.Members
-                .Where(m => !(m is VBSyntax.OptionStatementSyntax)) //TODO Record values for use in conversion
+                .Where(m => !(m is VBSyntax.OptionStatementSyntax))
                 .SelectAsync(async m => (Source: m, Converted: await ConvertMemberAsync(m)));