LenB Function is Not Working (VBA)
<p>I am currently working on an <strong>Access 2010</strong> application which have textboxes that accepts inputs in Japanese characters (KANJI). As soon as the focus (On Exit event) is lost in the textbox, it checks if all the characters are in double-bytes otherwise it will generate a warning message. You may refer to the code below:</p>

<pre><code>If LenB(StrConv(Trim(strJapanese), vbFromUnicode)) &lt;&gt; Len(Trim(strJapanese)) * 2 Then
    'Inform the user to input double-byte Japanese characters
End If
</code></pre>

<p>The problem is that even if I input double-byte characters in the textbox, the condition above is satisfied. This means that the byte-length of the string is equal to its length. </p>

<p>Please note that using this Access tool in my colleague's computer and inputting Japanese characters will not satisfy the condition above - which is the expected behavior. Is this a problem with my environment? We are using the same operating system and same MS Office version so I don't understand why we're not having the same results. </p>

<p>I would appreciate any help regarding this matter. Thanks!</p>