Hallo franzl,
Code:
Sub Read1820                                                ' reads sensor ans calculate 
                                                   ' T for 0.1 C 
   1wreset                                                  ' reset the bus 
   1wwrite &HCC                                             ' read internal RAM 
   1wwrite &HBE                                             ' read 9 data bytest 
   Bd(1) = 1wread(9)                                        ' read bytes in array 
   1wreset                                                  ' reset the bus
Es steht ja schon im Code "read bytes in array", dann solltest du es auch machen.

Code:
Sub Read1820                                                ' reads sensor ans calculate 
                                                   ' T for 0.1 C 
   1wreset                                                  ' reset the bus 
   1wwrite &HCC                                             ' read internal RAM 
   1wwrite &HBE                                             ' read 9 data bytest 
   For I = 1 to 9
   Bd(I) = 1wread()                                        ' read bytes in array 
   Next
   1wreset                                                  ' reset the bus
Bd(1) = Temperatur LSB
Bd(2) = ---"--- MSB

Wenn es auf 0,1 Grad genau sein soll brauchst du auch noch
Bd(7) = Count Remain
Bd( 8 ) = Count per Grad

Berechnung siehe Datenblatt