能不能把c#语言CRC校验翻成VB解决方案

能不能把c#语言CRC校验翻成VB
算法（c#语言）：
public virtual byte GetCRCByte(byte[] data)
{
int crc = 0x0; （初始值为0）
foreach (byte bt in data)
{
crc = crc ^ bt;
for (int j = 1; j <= 8; j++)
{
if ((crc & 0x80) == 0x80)
crc = (crc << 1) ^ 0xE5;
多项式值为E5,被校验值左移
else
crc = crc << 1; }
}
return (byte)crc;
}
校验示例：
被校验字节串：3165430C00408F01，CRC 值为07H

下面是我翻的，但计算结果不对，不知错在哪里
Private Function crc_chk_value(ByRef data_value() As Integer, ByVal length As Integer)
    Dim crc_value As Long
    crc_value = &H0
    Dim i As Byte
    Dim cnt As Integer

    For cnt = 0 To length - 1
        crc_value = crc_value Xor data_value(cnt)
        For i = 0 To 7
            If (crc_value And &H80) Then
                crc_value = ((crc_value * 2) Mod &HFF) Xor &HE5
            Else
                crc_value = ((crc_value * 2) Mod &HFF)
            End If
        Next i
    Next cnt

    crc_chk_value = crc_value
End Function
------解决方案--------------------
楼主的“翻译”好象不对吧。
试下这段代码：

Private Function GetCRCByte(aData() As Byte) As Byte

   Dim CRC  As Long

   Dim i&, j&

   CRC = 0     ' （初始值为0）