Visual Basic - CRC 8

Necesito ayuda para una función que me calcula el CRC 8 de una cadena de texto. El polinomio es x^8+x^2+x^1+x^0. Init=0, RefIn=false,RefOuto=false,XorOut=0
Gracias