Einfach so:

Antwort_DS1820(1) = 1wread(9) '9 Byte in das das Array einlesen
If Antwort_DS1820(9) = CRC8(Antwort_DS1820(1),8) Then 'korrekt
...