vielen Dank!

Code:
 1wverify Ar(1)                                 ' Gerät mit der SerienNr. aus Ar() auswählen 
    ' Gerät vorhanden 
    If Err = 0 Then
1wverify habe ich schonmal benutzt, nur kannte die Err Variable nicht...

Also es geht Bild