Gut, dann doch mit B
Code:
    B = Udr 
    L = B
    L = L * 100                                             'max 255*100 = 25500 
    Value = 65000 - L                                       '65000-25500 = 39500 

  printbin b
Wichtig ist, daß VOR dem multiplizieren der Wert auf ein word erweitert ist