c to vb convertion

[nokmaster]

need help in converting code from c to vb6

c code

unsigned char tabla1[] = {
0xB1, 0xB1, 0x73, 0x73, 0xE6, 0xE6,
0x5A, 0x5A, 0xAB, 0xAB, 0x47, 0x47,
0x8E, 0x8E, 0x0D, 0x0D, 0x1A, 0x1A,
0x34, 0x34, 0x68, 0x68, 0x0B, 0x0B
};

unsigned char tabla2[] = {
0x34, 0x62, 0x58, 0x92, 0x76, 0x13,
0x25, 0x97, 0x56, 0x28, 0x68, 0x13
};

then i convert into vb6

Dim table1 As Variant
Dim table2 As Variant
 
table1 = Array(&HB1, &HB1, &H73, &H73, &HE6, &HE6, _
    &H5A, &H5A, &HAB, &HAB, &H47, &H47, _
    &H8E, &H8E, &HD, &HD, &H1A, &H1A, _
    &H34, &H34, &H68, &H68, &HB, &HB)
    
table2 = Array(&H34, &H62, &H58, &H92, &H76, &H13, _
    &H25, &H97, &H56, &H28, &H68, &H13)

how about this?

unsigned short gethalf(unsigned char *donde)
{
return ((donde[1]<<8)|donde[0]);
}

void sethalf(unsigned char *donde, unsigned short que)
{
donde[0] = que & 0xFF;
donde[1] = (que>>8) & 0xFF;
}

void inv(unsigned char *cadena)
{
int i;
unsigned char temp;

for(i=0; i<=10; i+=2)
{
temp = cadena[i];
cadena[i] = cadena[i+1];
cadena[i+1] = temp;
}
}