Übergabe von Werten an eine SUB per Byval

[mat-sche]

Hallo @ All,

ich brauch mal wieder Eure Hilfe! Folgendes wollt ich machen:
1.
*Dim Temperaturbyte(4) As Byte At Temp1 Overlay
*Declare Sub Master_transmit(byval Slave_adress As Byte , Komando1 As Byte )

2.
ich lasse mir eine Temperatur als Single geben (Temp1) und lege darüber mit Overlay das Temperaturbyte

3.
Slave_adress = &H6A
Komando1 = Temperaturbyte(1)
Call Master_transmit(slave_adress , Komando1)
hier soll die Sub aufgerufen werden in der die 4 einzelnen Byte (Temperaturbyte(4) ) per TWI übertragen werden

4. nun wird die Sub aufgerufen und die Daten werden übergeben:

Sub Master_transmit(byval Slave_adress As Word , Komando1 As Byte )
Twi_mst_buff(1) = Komando1
Twi_mst_addr = Slave_adress
Twi_mt_cntr = 4
Twi_mt_data = Varptr(twi_mst_buff(1))
Twi_mr_cntr = 0
Gosub Run_wait_master

Die TWI Übertragung ist die aus der Wiki TWI-Master/Slave. bei mir besteht das Problem, dass die Sub aufgerufen wird, jedoch werden leider nur 4x Nullen zum Master übergeben. Irgend wie wird die Info vom Temperaturbyte nicht an die Sub gesendet.

Hat jemand nen Plan wie ich dies hinbekomme?

Danke und Gruß
MAT