訂正
MSB = ((Long0 And &H8000) <> 0) And &H80000000