Question: I can't figure out how to calculate the checksum after input in text1 for the data, input text1 for the divisor in binary bytes. I tried checksum.text = Text1.Text Xor Text2.Text but its not working, i searched already in internet but its only apply for C++ and java, is it possible in VB?

Answer: 
You cannot `XOR` on a string. You must do it on 2 numbers, not a string.

Try:

```
checksum.text = CStr(Clng(Text1.Text) Xor CLng(Text2.Text))

```
@George

```
Private Sub Command1_Click()

    If Len(Text1.Text) & (Text2.Text) = 0 Or Text1.Text & Text2.Text) Like "[!0-1]" Then
        Text3 = "Wrong Input, Please Correct it!!"
    Else
        checksum.Text = CStr(CLng(Text1.Text) Xor CLng(Text2.Text))
        Trans(2).Text = (Text1.Text) + (checksum.Text) 
        Text3 = "Congratulation CRC is generated"
    End If 

End Sub 

```