"Hängen" (eigentlich dauer-Schleife) kann die Funktion nur da:
If get_scl() = 0 Then GoTo stopa
d.h. SCL ist offenbar immer unten.
Da vermute ich, daß das Pullup der SCL u. SDA nicht korrekt ist. Wenn du die Relaiskarte absteckts und mit Strom versorgt, müssen beide Leitungen ca 5V+ zeigen.