On 3/7/06, William Squires <[EMAIL PROTECTED]> wrote:
> Text2.Text = Chr(BitwireXor((Asc(Mid(Text.Text, 1, 4)) - &h69), &h69))
That should be "BitwiseXor", of course :)
> temp = Hex(Val(Text2.Text))
> While Len(temp) < 2
> temp = "0" + temp
> Wend
> Text2.Text = temp
Here's a much shorter way:
Text2.Text = Right ("0" + Hex(Val(Text2.Text)), 2)
Or maybe he should be using Asc instead of Val? I don't know how VB
converts strings to integer.
Thomas
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
