Code:
dim singval as single
dim Ival as integer
dim Msb as byte
dim Lsb as byte
.....
.....
           I2crbyte Msb , Ack
           I2crbyte Lsb , Nack
           I2cstop
           If Msb.7 = 1 Then
              Ival = Makeint(msb , &HFF)   ' auffüllen mit den Vorzeichen bits
           Else
              Ival = Makeint(msb , &H00)   ' positiv, also bleibt es so
           End If
           singval = Ival
           If Lsb.7 = 1 Then
                singval = singval + 0.5
           End If
        End if
Fusen und displayen kannst du selbst.