如何实现按位求补 急！！！

Question

在C#中有 ~  运算符对操作数执行按位求补操作
那在VB中如何实现呢。
Open fname For Binary As #1
    For i = 1 To 64         ' LOF函数是求文件长度的内部函数
        Get #1, i, x        ' 取出第i个字节
        x = qiuFan(x)       ' 这里调用了求补函数
        Put #1, i, x        ' 将加密后的这个字节写回到文件原位置
    Next i
Close如何实现求补函数呢。  望指教，谢谢！

Answer 1

Not Expression
逻辑非运算符： 
Boolean。结果为操作数的逻辑非。 
Byte、Short、Integer 和 Long 类型，以及所有枚举类型。结果为操作数的按位求补。

Answer 2

Private Function qufan(x As Byte) As Byte
Dim a As Byte
a = &HFF - x
qufan = a
End Function

Answer 3

Private Function qufan(x As Byte) As Byte
qufan = &HFF - x
End Function

Answer 4

Open fname For Binary As #1
    For i = 1 To 64         ' LOF函数是求文件长度的内部函数
        Get #1, i, x        ' 取出第i个字节
        x = 255 - x         ' 这里调用了求补函数
        Put #1, i, x        ' 将加密后的这个字节写回到文件原位置
    Next i
Close