Dim Readvar1h As Bit
Dim Readvar1l As Bit

Der I2C Bus kann keine einzelen Bits übertragen, sondern nur Bytes.
also

Dim Readvar1h As Byte
Dim Readvar1l As Byte

Das ist das Erste. Ob das Programm so richtig ist, kann ich jetzt nicht sagen, da ich nur wenig mit I2C arbeite