[ابراهيم ايبو]

اخي الكريم 
والله اعلم ان ارقامك فيها خطأ (رغم اني لااجيد قراءة هذه الارقام)
بعد تغيير بسيط  في ارقامك اليك الاكواد

كود :

Dim Value1 As Integer = &HF8F
       Dim Value2 As Integer = &HFB8E
       Dim result5 As Integer = Value1 Xor Value2
       MsgBox(result5)

       Dim Value3 As Decimal = &HB3D9589FD15AC05
       Dim Value4 As Decimal = &H30EB87EDF3F249D
       Dim result6 As Decimal = Value3 Xor Value4
       MsgBox(result6)