懂C的高手进来帮帮忙

麻烦哪位懂c语言的高手将下面的代码改为vb程序：
unsigned char crc5_epc(unsigned char *ptr,unsigned char len)
{
unsigned char i,j,k;
unsigned char crc=0x09;

j=0x80;
k=0;
for(i=0;i<len;i++){ 
if(crc&0x10){
crc<<=1;
crc^=0x09;
}
else crc<<=1;
if(*ptr&j) crc^=0x09;
j>>=1;
k++;
if(k==8){
j=0x80;
k=0;
ptr++;
}
}
return(crc&0x1f);
}

完全可以直译：
VB code

Function crc5_epc(ptr() As Byte, bylen As Byte) As Byte
    Dim i As Byte
    Dim j As Byte
    Dim k As Byte
    Dim crc As Byte
    crc = &H9
    j = &H80
    k = 0
    For i = 0 To bylen - 1
        If crc And &H10 Then
            crc = crc * 2
            crc = crc Xor &H9
        Else
            crc = crc * 2
        End If
        If ptr(i) And j Then crc = crc Xor &H9
        j = Int(j / 2)
        k = k + 1
        If k = 8 Then
            j = &H80
            k = 0
        End If
    Next i
    crc5_epc = crc And &H1F
End Function

编程语言的语法都是通用的。