Como pasar este codigo en C++ a Visual Basic.NET

Hola

Necesito ayuda para poder pasar este codigo que esta en C++ para portarlo

un a funcion en visual basic . ya le he intentado pero vb no maneja

short o si los maneja no los he podido encontrar
o como puedo hacer una libreria en C++ para poder usarla en VB.NET


unsigned short CRC_Calc(char bytearray[256],int arraylength)
{
unsigned short crc = 0xFFFF;
unsigned short tempresults;
unsigned short bitindex;
unsigned short byteindex;

unsigned char placeholder;

for (byteindex = 1; byteindex <= (arraylength - 3); byteindex++)
{
placeholder = bytearray[byteindex];
for(bitindex = 0; bitindex <= 7; bitindex++)
{
tempresults = (crc >> 15) ^ (placeholder >> 7);
crc <<= 1;
if(tempresults)
{
crc ^= 0x1021;
}
placeholder <<= 1;
}
}
return crc;
}