Sub Form_Load ()
Dim x As String
Dim y As Variant
x = "fffe"
y = CLng("&H" & x)
If y < 0 Then y = y + 65536 ' returns 65534
MsgBox y
End Sub
* Converting a string to an integer: Cal Stover
Dim SomeVariable as Integer
SomeVariable = CInt(Label2.Caption) + 100
Dim SomeVariable as Single
SomeVariable = CSng(Val(Label2.Caption) + 100)
* convert a number in Hexadecimal to Binary -chris
A very fast conversion from hex to binary can be done with a sixteen
element look-up table - a single hex digit converts to four binary
digits. So:
Function Hex2Bin$(HexValue$)
CONST BinTbl ="0000000100100011010001010110011110001001101010111100110111101111"
Dim X, Work$
Work$ = ""
For X = 1 to Len(HexValue$)
Work$ = Work$ + Mid$(BinTbl, (Val("&h" + Mid$(HexValue$, X, 1) - 1) * 4 + 1, 4)
Next
Hex2Bin$ = Work$
End Function
