Im Programm sieht das dann so aus:

Dim Dsid(16) As Byte 'Platz für 2 Sensoren

Dsid(1) = &H10 : Dsid(2) = &H68 : Dsid(3) = &H17 : Dsid(4) = &H25 : Dsid(5) = &H01 : Dsid(6) = &H08 : Dsid(7) = &H00 : Dsid(8) = &H98 'erster Sensor (aus dem Beispiel)
Dsid(9) = &H10 : Dsid(10) = &H99 : Dsid(11) = &H4E : Dsid(12) = &H71 : Dsid(13) = &H01 : Dsid(14) = &H08 : Dsid(15) = &H00 : Dsid(16) = &H6D 'zweiter Sensor (deine Nummer 10994E710108006D)

1wreset
1wwrite Match_rom
1wwrite Dsid(1) , 8 'bzw 1wwrite Dsid(9) , 8 für den zweiten
1wwrite Read_scratchpad

Gruß

Rolf