Allso hab meine Prüfungen hinter mir Bild  

also.... der neue Code der immer noch keine Mess ergebniss.

Nur Versions Register und Lichtsensor geben gescheite Werte zurück!
Code:
Dim Daten As Daten
Dim ErgDaten As ErgDaten
Dim Zentimeter As String

OK = True
    '~~~~~ Reichweite ~~~~~
    Daten.Speicher(0) = 1   'Verstärkungs-Register
    Daten.Speicher(1) = 31  'Machimale Verstärkung
OK = UsbI2CWriteBytes(0, 112, 2, Daten.Speicher(0))

    '~~~~~ Messung ~~~~~
    Daten.Speicher(0) = 0   'Befehls-Register
    Daten.Speicher(1) = 81  'Messung in CM
OK = UsbI2CWriteBytes(0, 112, 2, Daten.Speicher(0))
    
    Sleep 100
    
    '~~~~~ Lesen ~~~~~
    Daten.Speicher(0) = 2   'Ziel Register
OK = UsbI2CWriteBytes(0, 112, 1, Daten.Speicher(0))
    
OK = UsbI2CReadBytes(0, 112, 2, ErgDaten.Speicher(0))
   

   Zentimeter = Str(ErgDaten.Speicher(0)) + Str(ErgDaten.Speicher(1))
    
Text1.Text = Zentimeter
Wenn ich an die Stelle des Ziel Registers fürs Lesen eine 0 schreibe bekomme ich Perfekt die Version (6) und die Lichtverheltnisse zurück gegben nachdem das LED am SRF08 geplinkt hat

gruss
Sascha