diff --git a/Rubberduck.Parsing/VBA/Extensions/StringExtensions.cs b/Rubberduck.Parsing/VBA/Extensions/StringExtensions.cs
index 1e3890d19b..dc95202661 100644
--- a/Rubberduck.Parsing/VBA/Extensions/StringExtensions.cs
+++ b/Rubberduck.Parsing/VBA/Extensions/StringExtensions.cs
@@ -148,7 +148,7 @@ public static string ToVbExpression(this string managed, bool useConsts = true)
             var literal = string.Empty;
             foreach (var character in managed.ToCharArray())
             {
-                var unicode = Convert.ToInt16(character) > byte.MaxValue;
+                var unicode = Convert.ToInt32(character) > byte.MaxValue;
                 var specialCased = VbCharacterConstants.ContainsKey(character);
                 if (specialCased || char.IsControl(character) && !unicode)
                 {