Omregning af digitale værdier

Tænker du på noget i den her stil ?

Sub test()
  Dim xx As Long
  xx = -200
  Debug.Print xx
  Debug.Print Abs(xx)
End Sub

Nej så enkelt er det ikke

et eksempel
min ( long ) variabel inholder værdien -24576 værdien et tilblevet ved at der er indlæst en ( sikkert for stor ) POSITIV binær værdi ( jeg tror det der er galt er at når det binære tal når en vis størelse, så tolkes den mest betydende bit som en indikator på om værdien er positiv eller negativ.
Hvis jeg har rat så er den rigtige værdi lig med abs(-24576) tillagt den decimale værdi af de mest betydende bit,  men hvad er det ?

Tallet -24576 er hex: A000, eller bin: 1010 0000 0000 0000
D.v.s. at sign bittet bit 15 er sat.
Tallet unsigned = 40960 altså 65536 + (-24576)
D.v.s. at hvis din variabel bliver negativ kan du sige (65536 + Variabel) = Unsigned value

Det virkede også for nemt :-)
Håber at shy's svar er brugbart.