в SelectROM(0)) должен быть ноль, чтобы с помощью TMRom считать серийник устройства. я делаю для DS18b20 так и все работает:
MyHandle = TMExtendedStartSession(1, 1, vbNullString)
If (MyHandle < 0) Then
MsgBox ("1-Wire network is NOT available")
Exit Sub
End If
'1-Wire network is valid and setup
dmmy = TMSetup(MyHandle) ' проверяем что девайс online! =)
ReDim ROMid(j)
search = TMFirst(MyHandle, state_buffer(0)) 'ищем первый девайс
If (search >= 1) Then 'нашли девайс
ROM(0) = 0 'признак чтения серийника
flag = TMRom(MyHandle, state_buffer(0), ROM(0)) 'читаем серийник найденого девайса
RomString = ""
For i = 7 To 0 Step -1
'ROMid(j).ROMOrig(7 - i) = ROM(7 - i)
If ROM(i) <= &HF Then
RomString = RomString + "0"
ROMid(j).ROMOrig(i) = 0
Else
RomString = RomString + Hex$(ROM(i))
ROMid(j).ROMOrig(i) = ROM(i)
End If
Next i
ROMid(j).ROM = RomString
j = j + 1
End If

Do While (search >= 1)
search = TMNext(MyHandle, state_buffer(0)) 'ищем первый девайс
If (search >= 1) Then 'нашли еще один девайс
ROM(0) = 0
flag = TMRom(MyHandle, state_buffer(0), ROM(0)) 'читаем серийник найденого девайса
RomString = ""
ReDim Preserve ROMid(UBound(ROMid) + 1)
For i = 7 To 0 Step -1
'ROMid(j).ROMOrig(7 - i) = ROM(7 - i)
If ROM(i) <= &HF Then
RomString = RomString + "0"
ROMid(j).ROMOrig(7 - i) = 0
Else
RomString = RomString + Hex$(ROM(i))
ROMid(j).ROMOrig(7 - i) = ROM(7 - i)
End If
Next i
ROMid(j).ROM = RomString
End If
Loop

Этим кодом нахожу все девайсы на шине и помещаю изх в массив ROMid и т.д. Буду вопросы- пиши в личку.