Mach es mal so:
'Config 1wire = Portd.5 'brauchst du nicht
'Config 1wire = Portd.6 'mehrere geht eh nicht
'Config 1wire = Portd.7
Dim S_p(9) As Byte 'SP ist ein reserviertes Wort
Dim X As Byte
for x = 5 to 7

1wreset Pind , X 'Fehler in der Hilfe, Komma hinter 1wreset muss weg
1wwrite &HCC , 1 , Pind , X 'Anzahl Bytes muss angegeben werden
1wwrite &H44 , 1 ,pind , x

Waitms 512

1wreset Pind , X
1wwrite &HCC , 1 ,pind , x
1wwrite &HBE , 1 , Pind , X
S_p(1) = 1wread(9 , Pind , X)

'"Array auslesen und drucken ok"

Wait 1

Next