Wenn wir das Selbe meinen den RS232 I²C adapter dann brauch man nicht basic zu ver stehen es geht einfach darum die Status Leitungen der RS232 so zu Takten das I²C dabei raus kommt.

Code:
Sub set_sda(zustand As Boolean) DTR setezen
    MSComm1.DTREnable = zustand
End Sub

Sub set_scl(zustand As Boolean) RTS Setzen
    MSComm1.RTSEnable = zustand
End Sub

Function get_scl() As Boolean // CTSSetzen
    get_scl = MSComm1.CTSHolding
End Function

Function get_sda() As Boolean // DTR Leitung setzen
    get_sda = MSComm1.DSRHolding
End Function
Programiers du unter windows ?