Try it this way
dim x as integer = (((8f xor 33) xor cc) xor 6a)
If the number of values is variable, you could write a method:
public Function XOrStack(values as integer()) as integer
Dim result as integer = 0
if (values.Length > 0) then
foreach (value as integer in values)
result = result Xor value
Next
end if
return result
End Function
I'm a C# guy, so the code above may need tweaking.