Visual Basic - DESENCRITAR CODIGO DE FOXPRO

Buenas amigos, tengo un problema con un código de Visual FoxPro requiero
desencriptar un string, se encripto desde Visual FoxPro pero yo lo necesito desencriptar desde VB el codigo que desencripta en FoxPro es:

LPARAMETERS cString

local cEncrypted, i

cEncrypted = ""
for i=1 to LEN(cString)
cEncrypted = cEncrypted + CHR(BITXOR(ASC(SUBSTR(cString,i,1)),127))
endfor

return cEncrypted

Si se que SUBSTR en Visual es Mid$, el CHR y ASC quedan igual pero el BITXOR ni idea, yo no se nada de FoxPro x eso les pido ayuda

Alguien sabe pasarlo a VB 6

GRACIAS POR SU AYUDA

En VB se llama Xor, debería quedar esa línea así, porque no es función, como en Foxpro:

cEncrypted = cEncrypted + Chr( Asc( Mid( cString, i, 1) ) Xor 127 )

GRACIAS POR LA AYUDA