Dim i As Integer
   Dim l As Long
 
   i = CInt("&HFFFF") 'gibt -1
   Debug.Print "Integer VB 6: " & i 
 
   l = CLng("&HFFFF") 'gibt 65536
   Debug.Print "Long VB 6: " & l

    Dim s As Short, i As Integer
 
    s = Short.Parse("FFFF", Globalization.NumberStyles.AllowHexSpecifier)
    Debug.WriteLine(s)
 
    i = Integer.Parse("FFFF", Globalization.NumberStyles.AllowHexSpecifier)
    Debug.WriteLine(i)