Das solltest du entfernen

Dim Slave As Byte

Das könnte den Bascom verwirren, weil du eine gleichnamige Variable in der Function verwendest